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Abstract 


In  the  first  third  of  this  thesis,  three  well  known  reduction  calculi:  A.  Church’s  X- 
calculus,  M.  Schdnfinfcel's  SKI-calculus,  and  C.P.  Wadsworth’s  graph  oriented  X-calculus 
(X-G-calculus)  are  defined.  Schdnfinkel’s  classic  transformation  of  X-oalculus  well-formed 
formulas  (wffs)  into  variable-free  SKI-calculus  wlTs  is  also  presented.  A  new  notion, 
lazy-normal  form,  a  generalization  of  the  SKI-calculus’  concept  of  normal  form,  is  then 
defined  and  compared  with  Wadsworth’s  concept  of  head-normal  form.  Head-normal 
form  is  a  generalized  notion  of  normal  form  in  the  X-calculus.  It  is  demonstrated  that  an 
SKI-calculus  wff  in  lazy-normal  form  is  an  outline  of  the  wff’s  normal  form  (if  one  e:>:ists) 
—  i.e.  its  normal  form  will  have  the  same  initial  atom  and  the  same  number  of  argu¬ 
ments.  Other  results  relating  X-calculus  v/ffs  in  head-normal  form  to  SKI-calculus  wffs  in 
lazy- normal  form  are  stated  and  proved. 

The  ideas  behind  M.  Schdnfinkel’s  SKI-calculus,  C.P.  Wadsworth’s  X-G-calculus,  and 
D.A.  Turner’s  SASL  implementation  are  combined  with  the  concept  of  lazy-normal  form 
to  produce  a  new  deterministic  combinator  based  graph  and  machine  oriented  reduction 
calculus:  the  LNF-calculus.  The  LNF-calculus  is  equivalent  in  power  to  the  X-calculus  et 
al.,  but  is  much  more  directly  and  efficiently  implementable.  This  is  due  primarily  to 
the  structure  sharing  properties  of  the  LNF-calculus  wffs.  Both  garbage  nodes  and  for¬ 
warding  arcs  (indirection  pointers),  concepts  that  are  usually  relegated  to  a  calculus’  im¬ 
plementation,  are  given  formal  definitions  in  this  calculus. 

The  design  and  experimental  Lisp  Machine  implementation  of  LNF,  a  fully  lazy  higher 
order  purely  functional  programming  language  with  reduction  semantics,  are  discussed. 
The  LNF  compiler  transforms  high  level  expressions  into  representations  of  LNF-calculus 
wffs.  LNF’s  runtime  system,  a  direct  realization  of  the  LNF-calculus’  “is  reducible  to” 
relation,  takes  as  input  LNF-calculus  wffs  and  produces  irreducible  wffs  (wffs  in  lazy- 
normal  form)  as  result.  The  thesis  ends  with  brief  discussions  of  alternate  approaches  to 
functional  programming  language  compilation  and  runtime  system  organization. 
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Chapter  1 

Foundations 
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At  its  core,  the  implementation  of  LNF  is  a  realization  of  a  formal  reduction  calculus 
called  the  LNF*calculus.  This  chapter  contains  some  preliminary  conventions, 
definitions,  and  results  concerning  reduction  calculi. 

First,  a  formal  definition  of  reduction  calculi  is  given.  Next,  two  reduction  calculi;  the  X- 
calculus  ([Church  1936],  [Church  1941])  and  the  SKI-calculus  ([Schonfinkel  1924])  are 
presented.  Schdnfinkel’s  classic  transformation  of  X-calculus  well-formed  formulas  (X- 
wffs)  into  SKI-calculus  well-formed  formulas  (SKI-wffs)  is  then  defined.  Wadsworth’s 
concepts:  head-redex  and  head-normal  form  are  presented  next.  Those  concepts  original¬ 
ly  appeared  in  Wadsworth’s  Ph.D.  thesis  ([Wadsworth  1971]).  Wadsworth’s  concept 
head-normal  form  is  a  generalization  of  Church’s  normal  form  in  the  X-calculus  (X- 
normal  form).  The  notions  initial-redex  and  lazy-normal  form  are  introduced.  The  no¬ 
tion  lazy-normal  form  is  a  generalization  of  the  SKI-calculus’  normal  form  (SKI-normal 
form).  One  would  not  be  far  off  by  saying  that  lazy-normal  form  is  to  the  SKI-calculus 
as  head-normal  form  is  to  the  X-calculus.  Some  results  relating  the  two  calculi  are  then 
stated  and  proved.  A  few  new  results  relating  SKI-wffs  in  lazy-normal  form  to  X-wffs  in 
head-normal  form  and  to  SKI-wffs  in  SKI-normal  form  are  also  proved.  The  chapter 
ends  with  a  very  brief  discussion  of  X-G-calculus  [Wadsworth  1971]  (a  modification  of 
the  X-calculus  in  which  the  wffs  are  rooted  acyclic  graphs). 

1.1.  Reduction  Calculi 

In  the  definitions  to  follow,  the  definienda  appear  in  italics. 

Definition  1.1:  A  reduction  calculus  R  can  be  characterized  by  its  set  of  well-formed 
formulas  {R-wff)  and  a  binary  relation  “immediately  reducible  to”  {R-imr)  on  R-wff. 

Reduction  calculi,  so  defined,  are  exactly  the  “General  Replacement  Systems”  of 
B.K.  Rosen  in  [Rosen  1973]. 

BOLDFACE  UPPERCASE  identifiers  will  be  used  for  meta-variables  denoting  arbi¬ 
trary  R-wffs.  Different  identifiers  denote,  in  general,  different  R-wffs.  The  identity 
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relation  on  R-wffs  is  denoted  by 

Definition  1.2:  Let  R  be  a  reduction  calculus,  defined  by  the  set  of  well-formed  formu¬ 
las  R-wff  and  binary  relation  R-imr. 

•  Let  A,  B  6  R-wff.  A  immediately  reduces  to  B  iff  the  ordered  pair  <A,B>  in 
R-imr.  <A,B>  in  R-imr  is  often  written  A  R-imr  B. 

•  Let  A  G  R-wff.  A  is  [ir)reducible  iff  there  is  (no)  B  in  R-wff  such  that  A  R-imr  B. 

•  The  sequence  Ai,A2,  •  .  .  ,  A„  is  a  reduction  sequence  of  Aj  iff  A,-  immediately 
reduces  to  A,  +i,  for  j  =1,  .  .  .  ,  n  -1. 

•  R-red  is  the  transitive  closure  of  R-imr. 

•  Let  A,  B  G  R-wff.  A  reduces  to  B  (B  is  a  reduction  of  A)  iff  A  R-red  B. 

•  R-red*  is  the  reflexive  transitive  closure  of  R-imr. 

•  Let  A,  B,  C  G  R-wff.  If  A  R-red*  B  and  A  R-red*  C  implies  the  existence  of  a  D 
in  R-wff  such  that  B  R-red*  D  and  C  R-red*  D  then  R  is  said  to  have  the 
Church-Rosser  property  (R  is  Church-Rosser).  The  name  comes  from  the  work 
done  by  A.  Church  and  J.B.  Rosser  in  [Church  1936], 

•  R  is  deterministic  iff  R-imr  is  a  partial  function. 

Note  that  any  deterministic  reduction  calculus  R  trivially  has  the  Church-Rosser  pro¬ 
perty. 


An  Example  of  a  Simple  Reduction  Calculus: 

Definition  1.3:  Let  SUM  he  the  reduction  calculus  defined  by  SUM-wff  and  SUM-imr. 

Definition  1.4:  SUM-wff  \s  defined  inductively  as  follows: 

•  Every  integer  is  a  SUM-wff. 

•  If  A  and  B  are  SUM-wffs,  then  (A  -I-  B)  is  a  SUM-wff. 

Definition  1.5:  SUM-imr  is  defined  inductively  as  well: 

•  (I  -f-  J)  SUM-imr  K,  for  all  integers  I,  J,  and  K  where  K  is  the  sum  of  I  and  J. 

•  (A  -(-  B)  SUM-imr  (C  -I-  B),  for  all  SUM-wffs  A,  B,  and  C  where  A  SUM-imr  C. 

•  (A  -f-  B)  SUM-imr  (A  -(-  C),  for  all  SUM-wffs  A,  B,  and  C  where  B  SUM-imr  C. 

From  these  definitions  it  can  be  seen  that  no  integer  is  reducible  ana  that  any  SUM-wff 
A  which  is  not  an  integer  is  reducible. 

A  reduction  sequence  (there  are,  of  course,  many  others)  of  the  SUM-wff 
(((3  +  2)  +  (0  +  10))  +  (89  +  4)): 

(((3  +  2)  +  (0  +  10))  4-  (89  +  4)), 

(((3  +  2)  +  10)  +  (89  +  4)), 

((5  +  10)  +  (89  +  4)), 

((5  -b  10)  -4  93), 

(15  +  93), 

108. 


It  is  easy  to  verify  that  even  though  SUM  is  not  deterministic  it  is  Church-Rosser. 


ITTi  y-i  yjirrr^Tr.  •'..■“iT'iT'itTKFVFKT't 


Page  S 


1.2.  The  X-calculus 


The  use  of  metavariables  follows  (for  the  most  part)  that  of  A.  Church  in  [Church  1941]. 
Boldface  lowercase  identifiers  denote  variables.  BOLDFACE  UPPERCASE 
identifiers  denote  arbitrary  X-wffs. 

Definition  1.6:  Let  \-calculus  be  the  reduction  calculus  defined  by  the  set  of  well- 
formed  formulas  X-wff  and  binary  relation  X-imr. 


1.2.1.  Well-formed  Formulas 

It  will  often  be  convenient  to  use  shorthand  of  the  form  FUNCTION- 
NAME[ARGi,  .  .  .  ,  ARG„]  to  stand  for  X-wffs  and  PREDICATE-NAME- 
P[ARGi,  .  .  .  ,  ARG„]  to  stand  for  predications.  For  example,  the  piece  of  shorthand 
OPERATOR[A]  (defined  below)  will  stand  in  for  a  X-wff  and  the  shorthand  VAR-P[A] 
(also  defined  below)  will  stand  in  for  the  predication  “A  is  a  variable”.  Before  its  use, 
each  function  and  predicate  will  be  given  a  formal  definition.  In  these  definitions,  the 
author  will  make  use  of  the  following  familiar  forms: 

C„) 


•  {and  Cl 

•  (or  Di  •••  D„  ) 

•  {not  B) 

•  (i'B, 

then  El 
(e/sei/Bj 
then  E,-  ]* 
else  E„  ) 

•  {let  <NAME>  be  Ei  in  Eo) 

•  (E.  where  <NAME>  is  E2) 

Definition  1.7:  VAR  is  the  set  of  all  lowercase  identifiers.  Elements  of  VAR  are  called 
variables.  Some  examples  of  variables:  ‘‘a”,  ‘‘flat  ’,  and  “tire”.  For  all  variables  v. 
VAR-P\y\  is  true. 

Definition  1.8:  \-wff  \s  defined  inductively  as  follows 

•  Every  variable  is  a  X-wff. 

•  If  V  is  a  variable  and  B  is  a  X-wff.  then  (X  v  B)  is  a  X-wff. 

•  If  A  and  B  are  X-wffs,  then  (A  B)  IS  a  X-wff 
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Definition  1.9:  Let  A  =  (X  v  B).  A  is  an  abstraction  {ABSTRACTIOIV-P[A.]),  v  is  the 
bound  variable  of  A  (v  =  BV[A]),  and  B  is  the  body  of  A  (B  =  BOD  Y\A]). 

Definition  1.10:  Let  C  =  (A  B).  C  is  a  combination  {COMBINATION-P[C]),  A  is  the 
operator  of  C  {A  =  OPERATOR[C]),  and  B  is  the  operand  of  C  (B  = 
OPERAND{C]). 

The  pair  of  parentheses  surrounding  combinations  is  often  omitted.  Further,  the  combi¬ 
nations:  ((A  B)  C),  (((A  B)  C)  D),  etc.  are  written:  A  B  C,  A  B  C  D,  etc.  Using  this 
shorthand  (association  of  combination  to  the  left)  for  the  combination  ((A  B)  (C  D)) 
results  in  A  B  (C  D). 
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Definition  1.11:  Let  A  €  X-wtT  The  pair  sf,B>,  where  sf  is  a  function  (a  composi¬ 
tion  of  the  selector  functions  BOD^^  OPERATOR,  and  OPERAND)  and  B  is  a  X- 
wff,  is  a  subformula  of  A  if  9f[A]  =  B 

Note  that  x  is  not  a  subformula  of  (X  x  y)  The  phrases  ‘‘B  is  a  subformula  of  A’’.  'B 
occurs  in  (the  context  of)  A”,  and  ‘A  contains  B”  are  often  used  in  place  of  the  some¬ 
what  unwieldy  phrase  “<9f,B>  is  a  subformula  of  A  ' 

Definition  1.12:  Let  v  €  VAR  and  B  6  X-wff  The  variable  v  occurs  free  in  B  fv  has  a 
free  occurrence  in  B)  iff 
(or  B  =  V 

{andB  =  (C  D) 

V  occurs  free  in  either  C  or  D) 

(and  B  =  (X  u  C) 

it  is  not  the  case  that  u  =  v 

V  occurs  free  in  C)). 

Definition  1.13:  Let  v  €  VAR  and  B  €  X-wff.  The  variable  v  occurs  bound  in  B  (v  has 
a  bound  occurrence  in  B)  iff 
(or  (and  B  =  (X  u  C) 

(or  (and  (u  =  v) 

(u  occurs  in  C)) 

V  occurs  bound  in  C)) 

(andB  =  (C  D) 

V  occurs  bound  in  either  C  or  D)). 

It  IS  possible  that  a  variable  has  both  free  and  tiound  occurrences  in  the  same  X-wff  For 
example,  consider  the  variable  v  in  the  X-wiT  (v  (X  v  v)).  Its  occurrence  in  the  operator 
IS  .  r(  '•  and  its  occurrence  in  the  operand  is  bound 

Definition  1.14:  The  free  (bound)  variables  of  a  X-wff  A  are  those  variables  which  have 
free  (bound)  occurrences  in  A. 

Definition  1.15:  Let  AG  X-wff.  A  is  closed  iff  A  has  no  free  variables. 


1.2.2.  Reduction 
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The  definition  of  the  “immediately  reducible  to”  relation  in  the  X-calculus  depends 
directly  on  the  notion  of  substitution.  Informally,  SUBST[A,v,B]  (defined  formally 
below)  is  B  with  all  free  occurrences  of  v  in  B  replaced  with  A.  Although  it  is  easy  to 
informally  communicate  the  essence  of  the  notion,  it  is  also  easy  to  make  a  mistake 
when  writing  out  the  formal  definition.  Besides  having  a  complicated  formalization,  the 
function  SUBST  is  expensive  to  implement.  This  is  one  of  the  reasons  for  basing  the 
LNF-machine  on  the  LNF-calculus  —  a  reduction  calculus  without  variables  and  substi¬ 
tution. 
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Definition  1.16:  Let  v  €  VAR  and  A,  B  6  X-wfF. 

Si7B5r[A,v,B]  Hi 

(«/B  =  v 
then  A 

e/sei/VARP[B] 
then  B 

elseifB  =  (C  D) 

then  (SUBST[A,v,C]  SUBST[A,v,D]) 
elseifB  =  (X  v  C) 
then  B 

elseif  {andB  =  (X  u  C) 

;;  it  is  not  the  case  that  u  =  v 
u  does  not  occur  free  in  A) 
then  (X  u  SUBST[A,v,C]) 
else  ;;  B  =  (X  u  C), 

;;  it  is  not  the  case  that  u  =  v,  and 
;;  u  occurs  free  in  A) 

(X  X  SUBST[A,v,SUBST[x,u.C]]) 
where  x  is  a  variable  which  does  not  occur 
in  either  A  or  C). 

Definition  1.17:  (X  v  B)  a-imc  {a-converts)  (X  u  SUBST[u,v,B]),  for  all  X-wffs  B  and 
all  variables  u  and  v,  where  u  does  not  occur  free  in  B. 

Definition  1.18:  ((X  v  B)  A)  jS-imr  SUBST[A,v,B].  for  all  variables  v  and  X-wffs  A  and 
B.  Any  X-wff  of  the  form  ((X  v  B)  A)  is  a  0-redex  {/3-REDEX-P[{{\  v  B)  A)]).  The 
X-wff  SUBST[A,v,B]  is  the  jd-reductum  {contraction)  of  ((X  v  B)  A). 

Definition  1.19:  X-imr  is  defined  inductively: 

•  A  X-imr  B  if  A  a-imc  B. 

•  A  X-imr  B  if  A  /?-imr  B. 

•  (A  B)  X-imr  (C  B)  if  A  X-imr  C. 

•  (A  B)  X-imr  (A  C)  if  B  X-imr  C. 

•  (X  V  B)  X-imr  (X  v  C)  if  B  X-imr  C. 

The  five  clauses  in  the  definition  of  X-imr  are  called  reduction  rules  of  the  X-calculus. 
The  first  two  reduction  rules  differ  from  the  other  three.  Both  the  first  two  rules 
“specify  a  redex-reductum  pair”  whereas  the  other  three  “specify  a  reduction  context  — 
i.e.  a  context  in  which  a  reduction  may  take  place”.  For  this  reason  the  first  two  rules 
will  be  called  substantive  reduction  rules  and  the  others  contextual  reduction  rules. 

The  contextual  reduction  rule: 

(A  B)  X-imr  (C  B)  if  A  X-imr  C 

says  that  the  combination  (A  B)  is  a  reduction  context  for  A.  Similarly,  the  contextual 
reduction  rule: 

(A  B)  X-imr  (A  C)  if  B  X-imr  C 

states  that  the  combination  (A  B)  is  a  reduction  context  for  B.  Together  these  two 
rules  indicate  that  the  X-calculus  is  nondeterministic.  Anytime  a  single  wff  is  a  reduction 
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context  for  more  than  one  subformula,  the  “immediately  reducible  to”  relation  (if 
nonempty)  will  not  be  a  partial  function 

Definition  1.20:  Let  A,  B  be  X-wffs.  In  ca.se  A  X-imr  B  by  virtue  of  the  fact  that  ASF 
/3-imr  BSF  where  ASF  (BSF)  is  a  subformula  of  A  (B),  then  ASF  is  the  redex  con¬ 
tracted  in  the  reduction  from  A  to  B 
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Definition  1.21:  \-red  is  the  transitive  closure  of  the  relation  X-imr. 

Definition  1.22:  \-red*  {i3-red*)  is  the  letlexive  transitive  closure  of  the  relation  X-imr 
(/?-imr). 

Theorem  1.1:  The  X-calculus  is  Church-Rosser  For  the  proof,  see  [Church  1941]. 

Definition  1.23:  A  X-wff  E  is  in  \-normal  form  (X-iVF-FpEj)  iff  E  does  not  contain  any 
^redexes. 

Definition  1.24:  Let  A,  B  be  X-wffs.  If  A  X-red*  B  and  X-NF-P[B],  then  B  is  a  X- 
normat  form  of  A. 

Definition  1.25:  Let  AG  X-wff.  .Assume  [not  X-NF-P[A]).  By  definition,  A  contains  at 
least  one  ^^redex.  The  leftmost  occurrence  of  a  9-redex  of  A,  (LEFTMOST-P- 
REDEXlA])  is  defined  as  follows 
LEFTMOST-/?- REDEX[A]  ^ 

(«//?-REDEX-P[A] 
then  A 

elseif  A  =  (X  v  B) 
then  LEFTMOST-a?-REDEX[B] 
else  ;;  A  =  (B  C) 

(«/B  contains  a  /?-redex 

then  LEFTM0ST-/?-REDEX[B] 
else  LEFTM0ST-/?-REDEX[C])) 

Definition  1.26:  Let  A,  B  be  X-wffs.  A  \-normal-ttnr  B  iff  A  X-imr  B  and  the  redex 
contracted  was  LEFTMOST-/?-REDEX[A] 

In  [Church  1941],  the  reduction  calculus  X-calculus  is  called  the  “calculus  of  X-K- 
conversion”,  the  relation  X-red*  is  called  “conv-I-II”.  and  the  relation  X-normal-iinr  is 
called  a  “reduction  of  order  one”. 

Church’s  “calculus  of  X-conversion”  (also  presented  in  [Church  1941])  differs  from  his 
“calculus  of  X-K-conversion”  in  the  definition  of  well-formed  formulas  In  Church’s  X- 
conversion  calculus,  an  expression  of  the  form  (X  v  B|  is  well-formed  only  if  there  is  at 
least  one  free  occurrence  of  v  in  B 

Definition  1.27:  \-normal-red*  is  the  rellexive  transitive  i-losure  of  X-normal-irnr 

Definition  1.28:  Let  A,  B  he  X-wffs  B  IS  a  \  norntiil  reduction  of  A  iff  A  X-normal- 

red*  B. 
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Definition  1.29:  Let  Ai.Ao,  .  ,  A„  be  X-wfTs.  Aj.Ao,  ,  A„  is  a  \-normal  order 
reduction  sequence  iff  A,  X-normal-imr  A,  i  =1,  .  .  .  ,  n  -1. 

Theorem  1.2:  The  \-NF  Standardization  Theorem.  Let  A  €  X-wff.  A  has  a  X-normal 
form  iff  there  exists  a  X-wff  B  such  that  X-.MF-P[B]  and  A  X-normal-red*  B.  For  the 
proof,  see  [Church  1941], 

Note  that  the  reduction  calculus  characterized  by  the  sets  X-wff  and  X-normal-imr  is  a 
deterministic  one.  This  is  true  because  each  X-wff  contains  at  most  one  leftmost  /?-redex 
and,  hence,  is  a  reduction  context  for  at  most  one  of  its  subformulas. 


1.2.3.  Head-normal  Form 

Head-normal  form  is  a  generalization  of  the  concept  of  X-normal  form  —  i.e.  a  X-wff  may 
have  a  head-normal  form  without  having  a  X-normal  form. 

Definition  1.30:  Let  A  €  X-wff.  A  contains  a  head-redex  R  iff 
(or  /3-REDEX-P[A] 

[and  A  =  (X  V  B) 

B  contains  a  head-redex) 

(and  A  =  (B  C) 

[not  /3-REDEX-P[A]) 

B  contains  a  head-redex)). 

Definition  1.31:  Let  A€  X-wff  contain  a  head-redex.  The  head-redex  of  A.  is  defined  to 
be  HEAD-REDEX[A]  where: 

HEAD-REDEX[A]  ^ 

(»//3-REDEX-P[A] 
then  A 

elseif  A  =  (X  v  B) 
then  HEAD-REDEX[B] 
else  HEAD-REDEX[OPERATOR[A]) 
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Definition  1.32:  Let  A  €  X-wff.  A  is  in  head-normal  form  [HEAD-NF-P\A^  iff 
(or  VAR-P[A] 

(and  A  =  (X  V  B) 

HEAD-NF-P[B]) 

(and  A  =  (B  C) 

[not  /3^REDEX-P[A]) 

HEAD-NF-P[B])). 
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Some  notes  on  head-normal  form: 

•  An  alternate  definition  for  a  X-wff  A  being  in  head-normal  form  is  that  A  is  in  head- 
normal  form  iff  A  does  not  contain  a  head-redex. 

•  A  X-wff  in  head-normal  form  always  looks  like: 

(Xxi  •  •  ■  (Xx„  (v  Bi  B„  )  •  ■)),  n  ,m  >0 

•  A  X-wff  not  in  head-normal  form  always  look  like. 

(Xxi  •  •  ■  (Xx„  (((Xv  B)  A)  Bi  B„  )  )),  n  ,m  >0. 


; 
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Definition  1.33:  Let  A,  B  be  X-wffs  A  head-imr  B  iff  A  X-imr  B  and  the  redex  con¬ 
tracted  is  the  HEAD-REDEX[A] 

Definition  1.34:  head-red*  is  the  reflexive  transitive  closure  of  head-imr. 

Definition  1.35:  Let  A,  B  be  X-wffs  B  is  a  head  reduction  of  A.  iff  A  head-red*  B. 

As  mentioned  above,  the  concepts  head-normal  form,  head-redex,  and  head  reduction 

(defined  above)  appeared  originally  in  [Wadsworth  1971]. 

Theorem  1.3:  Let  A  t  X-wff  If  A  has  a  X-normal  form,  then  A  has  a  head-normal 
form.  However,  A  having  a  head-normal  form  does  not  imply  that  A  has  a  X-normal 
form.  The  X-wff  (v  ((X  x  (x  x))  (X  x  (x  x))))  is  an  example  of  a  X-wff  which  has  a 
head-normal  form  (it  is  in  head-normal  form)  but  has  no  X-normal  form. 

The  theorem  above  says,  simply,  that  the  subset  of  X-wffs  having  a  head-normal  form 

contains  the  subset  of  X-wffs  having  a  normal  form. 

Theorem  1.4:  The  HEAD-NF  Standardization  Theorem.  Let  A€  X-wff.  A  has  a  head- 
normal  form  iff  there  exists  a  X-wff  B  such  that  HEAD-NF'P[B]  and  A  head-red*  B. 
For  the  proof,  see  [Wadsworth  1971]. 

The  reduction  calculus  characterized  by  the  sets  X-wff  and  head-imr,  like  the  calculus 

based  on  the  sets  X-wff  and  X-normal-imr,  is  deterministic. 
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The  ?Id-caIculu3,  as  presented  herein,  is  essentially  Schonfinkel’s  Funktionenkalkiil 
(with  Schonfinkel’s  functor  C  renamed  to  K)  presented  in  [Schonfinkel  1924].  The  SKI- 
calculus  is  equivalent  in  power  to  the  X-calculus. 

Definition  1.36:  Let  the  reduction  calculus  SKI-calculus  be  defined  by  the  set  of  well- 
formed  formulas  SKI-wff  and  the  binary  relation  SKI-imr. 


1.3.1.  Well-formed  Formulas 

Definition  1.37:  SKI-wff  is  defined  inductively  as  follows: 

•  Every  variable  is  an  SKI-wff. 

•  The  functors  S,  K,  and  I  are  SKI-wffs.  For  all  functors  X,  FUNCTOR-P\f^. 
These  functors  are  also  called  combinators. 

•  For  all  SKI-wffs  A  and  B,  the  combination  (A  B)  is  an  SKI-wff. 

Definition  1.38:  An  atom  is  either  a  variable  or  one  of  the  functors  S,  K,  or  I.  For  all 
atoms  X,  ATOM-PpC]. 

Boldface  lowercase  identifiers  now  stand  for  arbitrary  atoms,  not  just  variables. 
BOLDFACE  UPPERCASE  identifiers  now  stand  for  arbitrary  SKI-wffs. 
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Definition  1.39:  Note  that  every  SKI-wfT  can  be  written  in  the  form; 


a  El  •  •  ■  En  n  >0. 

The  atom  a  is  the  initial  atom  of  the  SKI-wff.  The  SKI-wffs  Ej,  .  .  .  ,  E„  are  the  ar¬ 
guments  of  the  SKI-wff  and  E,  is  the  SKI-wff’s  itk  argument. 

Definition  1.40:  Let  A  €  SKI-wff.  The  pair  <sf,B>,  where  sf  is  a  function  (a  compo¬ 
sition  of  the  selector  functions  OPERATOR  and  OPERAND)  and  B  is  a  SKI-wff,  is  o 
subformula  of  A  if  8f[A]  =  B. 

Definition  1.41:  Let  Xe  SKI-wff  have  the  two  subformulas:  <yf,Y>  and  <zf,Z> 
These  subformulas  are  disjoint  iff  there  is  no  function  f  such  that  yf  =  f  o  zf  (where 
o  denotes  functional  composition)  in  which  case  Z  contains  Y,  or  zf  =  foyf  in 
which  case  Y  contains  Z. 


1.3.2.  Reduction 

Reduction  in  the  SKI-calculus  does  not  depend  on  the  notion  of  substitution.  Thus,  the 
relation  SKI-imr  is  much  easier  to  formalize  than  X-imr. 

Definition  1.42:  SKI-imr  is  defined  inductively; 

•  S  F  G  X  SKI-imr  F  X  (G  X). 

•  KXY  SKI-imr  X. 

•  IX  SKI-imr  X. 

•  A  B  SKI-imr  C  B  if  A  SKI-imr  C. 

•  A  B  SIG-imr  A  C  if  B  SKI-imr  C. 

The  five  clauses  in  the  above  definition  of  SKI-imr  are  called  the  reduction  rules  of  the 
SKI-calculus.  The  first  three  are  the  calculus’  substantive  reduction  rules  and  the  other 
two  its  contextual  reduction  rules.  It  is  easy  to  see  that  the  SKI-calculus,  like  the  X- 
calculus,  is  nondeterministic. 

Definition  1.43:  An  SKI-wff  E  is  an  SKI-redex  iff  [SKI-REDEX-P^])  where 
SKI-REDEX-P[E]  ^ 

(or  E  =  S  F  G  X 
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Definition  1.44:  (from  [Sanchis  1967])  Let  X  6  SKI-wff.  Let  U  and  Z  be  SKI-redexes 
contained  in  X.  Let  Y  be  the  SKI-wff  which  results  from  contracting  U  —  i.e.  X 
SKI-imr  Y.  The  residuals  of  Z  in  Y  are  as  follows  (each  of  the  residuals  will  be  an 
occurrence  of  an  SKJ-redex  in  Y); 

•  If  Z  is  U,  then  there  are  no  residuals. 

•  If  Z  is  disjoint  from  U,  then  (since  Z  is  unaffected  by  the  contraction)  the 
corresponding  occurrence  of  Z  in  Y  is  the  residual  of  Z. 

•  If  Z  is  contained  in  U,  then  (depending  on  which  type  of  SKI-redex  U  is)  there 
are  zero,  one  or  two  residuals.  There  are  none  in  case  U  =  K  A  B  and  Z  is  in  B. 
There  is  one  in  case  U  =  I  A,  K  A  B,  S  A  B  C,  or  S  B  A  C  and  Z  is  in  A  —  it 
is  the  occurrence  of  Z  in  A  which  is  in  Y.  There  are  two  in  case  U  =  S  A  B  C 
and  Z  is  in  C  —  each  of  the  occurrences  of  Z  in  the  two  occurrences  of  C  which 
are  in  Y. 

•  If  Z  contains  U,  then  the  residual  is  Zi,  where  Zj  is  the  SKI-wff  in  Y  such  that  Z 
SKI-imr  Zi  by  virtue  of  contracting  U. 

Observe  that  every  residual  of  Z  is  an  occurrence  of  an  SKI-redex  having  the  same 
initial  atom  and  same  number  of  arguments  —  i.e.  the  same  type  of  SKI-redex  as  Z. 


Definition  1.45:  SKl-red  is  the  transitive  closure  of  SKI-imr 


Definition  1.46:  SKI-red*  is  the  reflexive  transitive  closure  of  SKI-imr. 


Lemma  1.1:  Let  X  €  SICI-wff.  If  X  SKI-imr  Yj  (by  virtue  of  contracting  SKI-redex  Uj) 
and  X  SKI-imr  Yj  (by  virtue  of  contracting  SKI-redex  U2),  then  there  is  an  SKI-wff 
Z  such  that  Yj  SKI-red*  Z  (by  virtue  of  contracting  the  residuab  of  SKI-redex  U2) 
and  Y2  SKI-red*  Z  (by  virtue  of  contracting  the  residuab  of  SKI-redex  Uj).  For  a 
proof,  see  [Sanchb  1967]. 


Theorem  1.5:  The  SKI-calculus  is  Church-Rosser.  For  a  proof,  see  [Sanchb  1967]. 


Definition  1.47:  An  SKI-wff  E  is  in  SKI-normal  forn'  [SKI-NF-P\E])  iff  it  does  not  con¬ 
tain  any  SKI-redexes. 


Definition  1.48:  Let  E,  F  €  SKI-wff.  F  is  the  SKI-normal  form  of  "E  iff  SKI-NF-P[F] 
and  E  SKI-red*  F. 


Definition  1.49:  Let  E,  F  €  SKI-wff.  E  is  equivalent  to  F  (EQUIVALENT-P[E,F])  if 
the  SKI-normal  form  of  E  =  the  SKI-normal  form  of  F. 


Informally,  two  equivalent  SKI-wffs  are  said  to  be  different  representations  of  the  same 
object.  The  SKI-normal  form  b  thought  of  as  the  preferred  (or  canonical)  representation 
of  the  object. 
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Definition  1.50:  Let  A  €  SKI-wff.  Assume  {not  SKI-NF-P[A]).  By  definition,  A  con¬ 
tains  at  least  one  SKI-redex.  The  leftmost  occurrence  of  an  SKI-redex  in  A  is 
{LEFTMOST-SKI-REDEX[A])  where 
LEFTMOST-SKI-REDEX[A])  ^ 

(i/SKI-REDEX-P[A] 
then  A 

e/se:/OPERATOR[A]  contains  an  SKI-redex 
then  LEFTMOST-SKI-REDEX[OPERATOR[A]] 
else  LEFTMOST-SKI-REDEX[OPERAND[A]]) 

Definition  1.51:  Let  A.  B  €  SKI-wfT  A  SKl-normal-imr  B  iff  A  SKI-imr  B  and  the 
redex  contracted  was  the  LEFTMOST-SKI- REDEX [A] 

Definition  1.52:  Let  Ai,A2,  .  .  A„  €  SKI-wff  Ai.Ao,  ,  A„  is  an  SKI-normal 

order  reduction  sequence  iff  A,  SKI-normal-imr  A,  i  =1,  ,  n-1. 

Definition  1.53;  SKI-normal-red*  is  the  reflexive  transitive  closure  of  SKI-normal-imr 


Definition  1.54:  Let  A,  B  €  SKI-wff.  B  is  an  SKI-normal  reduction  o/  A  iff  A  SKI- 
normal-red*  B. 

Theorem  1.8;  The  SKI-NF  Standardization  Theorem.  Let  A  G  SKI-wff.  A  has  an  SKI- 
normal  form  iff  there  exists  an  SKI-wff  B  such  that  SKI-NF-P[B]  and  A  SKI- 
normal-red*  B.  For  the  proof,  see  [Curry  1958]. 

The  reduction  calculus  determined  by  the  sets  SKI-wff  and  SKI-normal-imr  is  deter¬ 
ministic,  since  the  leftmost  SKI-redex  (if  it  exi.sts)  is  unique 


f .  .  . , 
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1.3.3.  Lazv-normal  Form 

It  was  stated  in  the  introduction  to  this  chaiiter  that  the  concept  lazy-norrnal  form  in 
the  SKI-calculus  is  not  unlike  the  concept  of  head-normal  form  in  the  X-calculus.  Lazy- 
normal  form  is  defined  in  this  section  and  then  later  on  it  is  shown  that  X-wffs  in  head- 
normal  form,  when  transformed  into  SKl-wff.s  via  .Schonfinkel’s  abstraction  algorithm, 
are  in  lazy-normal  form. 

Definition  1.55:  Let  E  €  SKI-wff.  E  contains  an  initial  redex  iff 
(or  SKI-REDEX-P[E] 

[and  COMBINATION-P[E] 

OPERATOR[E]  contains  an  initial  redex)) 


Definition  1.58:  Let  E  €  SKI-wff  contain  an 
defined  to  be  [INITIAL-REDEXfE])  where 
INITIAL-REDEX)[E]  ^ 

(./SKI-REDEX-P[E] 
then  E 

else  lNITIAL-REDEX[OPER.\TOR[A]]) 


initial  redex  The  initial  redex  o/  E  is 
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The  SKI-redexes  which  are  not  initial  redexes  are  called  interval  redexes  since  for  an 
SKI-wff  X  =  a  Xj  ■  X„  ,  each  of  its  internal  redexes  are  contained  in  one  its  X,  s. 


Definition  1.57:  An  SKI-wfT  E  is  in  lazij- normal  form  {LAZY-NF-P\E>\)  iff  E  does  not 
contain  an  initial  redex. 


Observe,  therefore,  LAZY-NF-P[E]  iff  E  IS  an  atom,  or  E  is  a  combination  but  not  an 
SKI-redex,  and  the  operator  of  E  is  in  lazy-normal  form. 


Definition  1.58:  Let  E,  F  €  SKI-wff.  F  is  a  lazy-normal  form  o/ E  iff  LAZY-NF-P[F] 
and  E  SKI-red*  F. 


Definition  1.59:  Let  A,  B  €  SKI-wff.  A  lazy-imr  B  iff  A  SKl-imr  B  and  the  redex  con¬ 
tracted  was  the  INITIAL-REDEX[A]. 


Definition  1.80:  Let  A,  B  €  SKI-wff  A  internal-imr  B  iff  A  SKJ-imr  B  and  the  redex 
contracted  was  an  internal  redex 


It  may  be  noted  that  the  reduction  calculus  characterized  by  the  set  of  well  formed  for¬ 
mulas  SKI-wff  and  the  relation  lazv-imr  is  deterministic 


Definition  1.61:  The  relation  lazy-red*  {internal-red*)  is  the  reflexive  transitive  closure 
of  lazy-imr  (internal-imr). 


Some  observations  concerning  initial  and  internal  redexes: 

•  .A.n  SKI-wff  contains  at  most  one  initial  redex. 

•  If  an  SKI-wff  contains  an  initial  redex  X  then  X  is  also  the  SKI-wff’s  leftmost  SKI- 
redex. 

•  An  SKI-wff  not  in  SKI-normal  form  always  contains  a  leftmost  SKI-redex  but  need 
not  contain  an  initial  redex.  For  example,  consider  the  SKI-wff  X  =  (K  (I  I))  X’s 
leftmost  SKI-redex  is  (I  I)  but  X  does  not  contain  an  initial  redex. 

•  If  X  internal-imr  Y,  then  Y  has  the  same  initial  atom  and  the  same  number  of  argu¬ 
ments  as  does  X.  It  then  follows  that  Y  contains  an  initial  redex  IR'  iff  X  contains 
an  initial  redex  IR  and  ER'  is  the  residual  of  IR  in  Y 


Lemma  1.2:  Let  X  €  SKI  -wff.  If  X  internal-red*  Y  and  Y  lazy-imr  Z.  then  there  is  a 
W  such  that  X  lazy-red*  W  and  W  internal-red*  Z 

Proof: 

It  has  been  noted  that  if  A  internal-imr  B  and  B  lazy-imr  C, 
then  the  initial  redex  in  B  is  the  residual  of  an  initial  redex  in  A. 

Let  IRY  be  the  initial  redex  contained  in  Y 

It  follows  from  the  preceding  remark  that  X  contains  an  initial  redex  (call  it  IRX) 
and  that  IRY  is  the  residual  of  the  residual  of  the  residual  of  of  IRX 
It  may  also  be  observed  that  IRX  and  IRY  have  the  same  initial  atom 
and  the  same  number  of  arguments  -  thev  are  the  same  tvpe  of  SKI-redex 
Let  X  =  a  Xi  X„,  . 

X  internal-red*  Y  implies  Y  =  a  Y]  Y.„  and  X,  SKI-red*  Y, 

IRX  must  be  a  Xj  •  Xjt  and  IRY  must  be  a  Yj  Y^  for  some  k  1,2. or  d 
By  repeated  application  of  Lemma  11,  it  follows  that 
there  is  an  X'  such  that  X  lazv-imr  X'  and  X'  SKI-red*  Z, 
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where  the  redexes  contracted  from  X'  to  Z  are  residuals  of 
the  redexes  contracted  from  X  to  Y. 

This  X'  is  either: 

Xi  ■  •  ■  Xm  (in  case  a  =  I),  or 

Xj  X3  •  ••  (in  case  a  =  K),  or 

Xi  X3  (X2  X3)  X4  ■  ■  •  X„  (in  case  a  =  S). 

Therefore,  the  only  initial  redexes  that  could  be  contracted  in 
the  reduction  from  X'  to  Z  must  be  residuals  of  initial 
redexes  contracted  in  the  reduction  from  Xi  to  Yj. 

It  suffices  to  show  that  there  exists  a  Wj  such  that  Xj  lazy-red*  Wj  and 
Wj  internal-red*  Y^. 

If  Xj  internal-red*  Yi,  then  done. 

So,  suppose  there  is  Xj'  and  X/'  such  that 
Xj  internal-red*  X/  lazy-imr  X/'  SKI-red*  Yj. 

This  situation  is  similar  to  the  original  problem. 

There  is  an  important  difference,  however. 

The  initial  redex  contracted  in  the  reduction  from  X/  to  X/' 
is  the  residual  of  a  redex  strictly  contained  in  IRX. 

Therefore,  the  argument  up  to  this  point  may  be  repeated 
with  Xi  as  X,  Xi'  as  Y,  and  X/'  as  Z. 

Since  all  SKI-wffs  are  finite,  eventually  there  will  be  a  first  argument  of  the  initial  redex 
which  does  not  strictly  contain  an  initial  redex. 

End  Proof 

Lemma  1.3:  Let  X  €  SKI-wff.  If  X  SKI-red*  Z,  then  there  is  an  SKI-wff  Y  such  that  X 

lazy-red*  Y  and  Y  internal-red*  Z. 

Proof: 

Proof  is  by  induction  on  the  length  of  the  SKI-reduction  sequence  from  X  to  Z. 

Case  1:  n=0  and  n=l.  Trivial. 

Case  2:  Lemma  holds  for  reduction  sequences  of  length  equal  to  n. 

To  show:  Lemma  holds  for  reductions  of  length  n-i-1. 

Let  the  reduction  sequence  from  X  to  Z  be: 

Xq,  .  .  .  .  X„  ,X„  +1  where  X  =  Xg  and  Z  =  X„ 

By  the  induction  hypothesis,  there  is  an  SKI-wff  W  such  that 
Xq  lazy-red*  W  and  W  internal-red*  X^ 

If  X„  internal-imr  X„  ^1,  then  let  Y  be  W.  Done 
So,  suppose  Xn  lazy-imr  X„ 

It  is  also  the  case  that  W  internal-red*  X^ 

By  Lemma  1.2,  there  exists  a  Y  such  that  W  lazy-red*  Y  and  Y  internal-red*  X„^j 
Therefore,  since  Xq  lazy-red*  W,  Xf,  lazy-red*  Y  and  Y  internal-red*  X„ 

End  Proof 

Theorem  1.7:  Let  A  G  SKI-wff.  A  has  a  lazy-normal  form  iff  there  exists  an  SKI-wff  B 

such  that  LAZY-NF-P[B]  and  A  lazy-red*  B 

Proof: 

<=)  Trivial.  B  is  a  lazy-normal  form  of  A. 

=»)  Let  C  be  a  lazy-normal  form  of  A 

This  implies  LAZY-NF-P[C]  and  A  SKI-red*  C. 

By  Lemma  1.3,  there  is  a  B  such  that  A  lazy-red*  B  and  B  internal-red*  C. 

LAZY-NF-P[B]  since  if  B  contains  an  initial  redex  then 


C  would  contain  an  initial  redex. 

End  Proof 


Theorem  1.8:  Let  X  €  SKl-w(T  11'  Y  and  Z  are  lazv  normal  forms  of  X  and  Y  = 


for  some  n  >0,  tlien  Z 


and  there  is  an  SKl-wff  'W  = 


a  W|  •  •  •  W„  such  that  Y;  SKI-red*  W,  and  Z,  SKI-red* 

Church-Rosser  like  property. 

Proof: 

By  Lemma  1.3,  there  is  a  U  such  that  X  lazy-red*  U,  U  internal-red*  Y, 
and  U  in  lazy-normal  form. 

Y  =  a  Yj  •  ■  Y„  implies,  since  internal  reduction  sequences  do  not  change  either 
the  initial  atom  or  the  number  of  arguments,  U  must  be  of  the  form: 
a  Uj  U„  and  U,  SKJ-red*  Y,  i  =1,  .  .  ,  n  . 

Similary,  there  is  a  V  such  that  X  lazy-red*  V, 

V  internal-red*  Z,  and  V  in  lazy-normal  form. 

Since  both  U  and  'V  are  lazy-reductions  from  X,  initial  redexes  are  unique, 
and  both  U  and  'V  are  in  lazy-normal  form,  it  must  be  the  ca^e  that  U  =  'V 


Thus,  V 


Z„  ,  and  U,  SKI-red*  Z,  ,!<:  <n 


Since  U,  SKI-red*  Y,  and  U,  SKI-red*  Z,  .  by  the  Church-Rosser  property, 
there  is  a  W,  such  that  Y,  SKI-red*  W,  and  Z,  SKI-red*  W,  ,l<i  <n  . 

Let  W  =  a  Wi  W„  . 

End  Proof 

Theorem  1.9:  Let  E  €  SKI-wff.  If  E  has  an  SKI-normal  form,  then  E  has  a  lazy- 
normal  form.  However.  E  having  a  lazy-normal  form  does  not  imply  that  E  has  an 
SKI-normal  form. 

The  ijroof  of  the  above  theorem  i.s  trivial  Tlie  SKI-wlf  S  ((S  I  I)  (S  I  I))  is  an  example  of 
:in  .Si\I-w(T  which  has  a  lazy-normal  form  (it  is  in  lazy-normal  form)  but  has  no  SKI- 
normal  f(*.jrm. 

Theorem  1.10:  Let  A  €  SKI-wff  If  A  has  an  SKI-normal  form  B,  then  there  is  an 
SKI-wff  C  such  that  A  lazy-red*  C  (C  in  lazy-normal  form)  and  C  SKI-normal-red* 

B 

Proof: 

By  Theorem  1.6,  there  is  an  SKI-normal 
order  reduction  sequence  Aj,  .  .  .  ,  A„  where  Ai  =  A  and  A„  =  B. 

Either  Aj  is  in  lazy-normal  form  or  its  not.  If  it  is,  then  the  proof  is  complete. 
Suppose,  therefore,  that  Aj  not  in  lazy-normal  form. 

By  the  definition  of  lazy-normal  form,  Ai  contains  an  initial  redex. 

It  has  been  observed  that  initial  redexes  are  also  leftmost  SKI-redexes. 

Thus,  the  redex  contracted  in  the  reduction  from  A,  to  A2 
is  Aj’s  initial  redex  implying  that  A;  lazy-imr  An. 

This  same  argument  may  be  applied  to  the  SKI-wffs  An,  .  ,  A„.i. 

There  are  two  cases  to  consider. 

Either  it  is  found  that  one  of  these  SKI-wffs  is  in  lazy-normal  form  or 
that  none  of  them  are  in  lazy-normal  form. 

Suppose  at  least  one  of  them  is  in  lazy-normal  form. 

Let  Aj  be  the  one  having  the  smallest  index. 

By  the  preceding  argument,  Aj  lazy- red*  Aj  and  the  proof  is  complete 
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Otherwise,  Aj  lazy-red*  A„ 

Since  A„  is  in  SKI-normal  form  it  is  also  in  lazy-normal  form. 

End  Proof 


1.4.  Relating  the  X-calculus  and  the  SKI-calculus 


Definition  1.62:  Let  E  €  X-wff,  The  SKI- transform  of  E  is  the  SKI-wff  X- TO-S/C/pE] 
where 

X-TO-SKI[E]  ^ 

(«/VAR-P[E] 
then  E 

elseifl£>  =  (X  v  B) 
then  ABSTRACT [v,X-TO-SKI[B]] 
else  (X-TO-SKI[OPERATOR[E]]  X-TO-SKI[OPERAND[E]])) 


Definition  1.63:  For  anv  variable  v  and  SKI-wff  B,  there  is  an  SKI-wff 
ABSTRACT[w ,B,\  where 
ABSTRACT[v,B]  ^ 

(*/B  =  V 
then  I 

elseif  V  does  not  occur  in  B 
then  K  B 
else 

S  ABSTRACT[v,OPERATOR[B]]  ABSTRACT[v,OPERAND[B]]) 


The  transformation  of  expressions  containing  bound  variables  into  expressions  without 
bound  variables  (called  ABSTRACTion)  was  first  presented  in  [Schonfinkel  1924].  It  was 
Schonfinkel’s  aim  “to  make  the  number  of  undefined  notions  as  small  as  we  can”.  In  the 
case  of  the  transformation  from  X-wffs  to  SKI-wffs,  the  arbitrary  abstractions  present  in 
the  X-calcuIus  have  been  replaced  with  the  three  special  functors  (abstractions);  S,  K, 
and  I.' 


The  SKI-wff  X-TO-SKI[EXP]  is  similar  to  Church's  “the  combination  belonging  to 
EXP”.  In  [Church  1941],  the  transformed  expressions  were  well-formed  formulas  of 
“the  calculus  of  X-conversion”  That  set  of  well-formed  formulas,  as  mentioned  above, 
did  not  contain  abstractions  having  no  free  occurrences  of  the  bound  variable  in  the 
body.  X-TO-SKI[EXP]  is  called  “the  H-transform  of  EXP”  in  [Hindley  1972]. 


Bindley  et  al.  also  define,  for  SKI-wffs  EXP.  “the  X-transform  of  EXP”  Herein  the  X- 
transform  of  an  SKI-wff  EXP  will  be  denoted  by  the  X-wff  SKI-TO-X [EXP]  defined 
below. 


’  In  the  same  paper,  Schonfinkel  showed  that  the  functor  I  was  unnecessary  as  it  could  be 
*  represented  by  S  and  K  with  the  SKI-wff  S  K  K  He  even  went  on  to  demonstrate  that  the  func¬ 
tors  S  and  K  could  be  defined  in  terms  of  a  single  functor  he  called  J  These  representation  tricks 
however,  are  not  as  remarkable  as  his  “bound  variable  eliminating’  transformation  just  defined 
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Definition  1.64:  Let  EXP  €  SKI-wff,  The  \-transform  of  EXP  is  SATZ-rO-XpEXP] 
where 

SKI-TO-X[EXP]  ^ 

(./VAR-P[EXP] 
then  EXP 
e/ae«/EXP  =  I 
then  (X  X  x) 
e/sci/EXP  =  K 
then  (X  X  (X  y  x)) 
e/sei/ EXP  =  S 
then  (X  f  (X  g  (X  X  (f  x  (g  x))))) 
else  ;;  it  is  a  combination 

(SKI-TO- X [OPERATOR [EXP]]  SIxI-TO- X [OPERA ND [EXP]] )) 


1.4.1.  Some  Results 

Some  simple  results  which  relate  X-wfTs  to  SKl-wffs  are  stated  and  proved  below 

Lemma  1.4:  Redex  Preservation  Lemma.  Let  EXP  €  X-wff.  If  EXP'  =  X-TO- 
SKIpEXP],  then  /?-REDEX-P[EXP]  iff  SKI-REDEX-P[EXP'] 

Proof: 

First  suppose  /?-REDEX-P[EXP].  To  show;  SKI-REDEX-P[EXP']. 
/3-REDEX-P[EXP]  implies  EXP  =  ((X  v  B)  A)  for  some  variable  v  and  X-wffs  A  and 
By  the  definition  of  X-TO-SKI, 

EXP'  =  (RATOR'  RAND'),  where  RATOR'  =  ABSTRACT[v,B' ], 
where  B'  =  X-TO-SKI  [B])  and  RAND'  =  X-TO-SKl[A]. 

There  are  two  cases  to  consider  B'  is  either  an  atom  or  a  combination 
1:  ATOM-P[B'], 

B'  is  either  v  or  it  is  not. 

Case  la;  V  =  B' . 

By  definition  of  ABSTRACT,  RATOR'  =  I. 

RATOR'  =  I  implies  EXP'  =  1  RAND'  which  implies  SK1-REDEX-P[EXP' ]. 
Case  lb:  It  is  not  the  case  that  v  =  B' . 

By  definition  of  ABSTRACT,  RATOR'  =  (K  B'). 

RATOR'  =  (K  B')  implies  EXP'  =  K  B'  RAND', 
which  implies  SKI-REDEX-P[EXP']. 

Case  2:  COMBINATION- P  [B' ], 

Either  v  occurs  in  B'  or  it  doesn’t. 

Case  2a:  v  occurs  in  B'. 

By  definition  of  ABSTRACT,  RATOR'  =  S  RT'  RN' . 

RATOR'  =  S  RT'  RN'  implies  EXP'  =  S  RT'  RN'  RAND' , 
which  implies  SKI-REDEX-P[EXP']. 

Case  2b:  v  does  not  occur  in  B' . 

By  definition  of  ABSTRACT,  RATOR'  =  (K  B'). 

Same  as  case  lb. 

Hence,  if /3-REDEX-P[EXP],  then  SK1-REDEX-P[EXP' ]. 

Now  suppose  SKI-REDEX-P[EXP'].  To  show:  .3-REDEX-P[EXP]. 
SKI-REDEX-P[EXP']  implies  COMBlN.\TION-P[EXP'] 
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Let  EXP'  =  (RATOR'  RAND' ). 

By  the  dehnition  of  X-TO-SKI,  COMBINATION-P[EXP]. 

Let  EXP  =  (RATOR  RAND). 

The  definition  of  X-TO-SKI  also  implies 
RATOR'  =  X-TO-SKI[RATOR]  and  RAND'  -=  X-TO-SKI[RAND]. 
SKI-REDEX-PfElXP']  implies  EJXP'  has  one  of  three  forms: 

Case  1:  EXP'  =  I  X,  for  some  SKI-wff  X. 

By  definition  of  EXP' ,  RATOR'  =  I. 

If  RATOR'  =  I,  then  RATOR  =  (X  v  v),  for  some  variable  v 
which  implies  ;3-REDEX-P[EJXP]. 

Case  2;  "EXP'  =  K  X  Y,  for  some  SKI-wffs  X  and  Y. 

By  definition  of  EXP',  RATOR'  =  K  X 
If  RATOR'  =  K  X,  then  RATOR  =  (X  v  A), 
for  some  variable  v  and  X-wff  A.  This  implies  /3-REDEX-P{EXP]. 

Case  3:  EXP'  =  S  F  G  X,  for  some  SKI-wffs  F,  G,  and  X. 

By  definition  of  EXP' ,  RATOR'  =  S  F  G. 

If  RATOR'  =  S  F  G,  then  RATOR  =  (X  v  A),  for  some  variable  v  and  X-wff  A. 
This  implies  /3-REDEX-P[EXP], 

Hence,  if  SKI-REDEX-P[EXP'],  then  /?-REDEX-P[EXP]. 

Therefore,  )3-REDEX-P(EXP]  iff  SICI-REDEX-P(EXP']. 

End  Proof 

Theorem  1.11:  ABSTRACTion  preserves  SKI-normal  form.  Let  v  €  VAR  and  BODY 
€  SKI-wff.  If  EXP  =  ABSTRACT(v,BODY]  and  SKI- NF-P [BODY],  then  SKI- 
NF-P[EXP]. 

Proof; 

Proof  is  by  structural  induction  on  BODY.  There  are  two  cases  to  consider: 

BODY  is  either  an  atom  or  a  combination. 

Case  1:  ATOM-P[BODY].  There  are  two  sub-cases  to  consider: 

Case  la;  v  =  BODY. 

By  definition  of  ABSTRACT,  EXP  =  1.  ATOM-P[EXP]  implies  SKI- NF-P  [EXP]. 
Case  lb:  It  is  not  the  case  that  v  =  BODY. 

By  definition  of  ABSTRACT,  EXP  =  (K  BODY). 

By  definition  of  SKI-REDEX-P,  (not  SKI-REDEX-PpEXPj). 

This  and  the  facts:  SKJ-NF-P[K]  and  (by  hypothesis)  SKI-NF-P[BODY] 
imply  SKI-NF-P[EXP]. 

Case  2:  BODY  =  RATOR  RAND.  There  are  two  sub-cases  to  consider: 

Case  2a:  v  occurs  in  BODY. 

By  definition  of  ABSTRACT,  EXP  =  (S  RATOR'  RAND' ),  where 

RATOR'  =  ABSTRACT[v, RATOR]  and  RAND'  =  ABSTRACT [v, RAND] 
By  definition  of  SKI-REDEX-P,  (not  SKI-REDEX-P  [EXP])  and 
(not  SKI-REDEX-P [(S  RATOR')]. 

By  definition  of  SKI-NF-P,  SiaNF-P[RATOR]  and  SKI- NF-P  [RAND]. 

By  induction,  SKI-NF-P[RATOR']  and  SKI- NF-P  [RAND']. 

These  facts  together  imply  SKI-NF-P(EXP). 

Case  2b:  v  does  not  occur  in  BODY. 

By  definition  of  ABSTRACT,  EXP  =  (K  BODY). 

Same  as  case  lb. 

End  Proof 
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Let  V  €  VAR  and  BODY  e  SKI-wff.  If  EXP  =  ABSTRACT[v,BODY],  then  it  is  not 
the  case  that  SKI-NF-P[EXP]  implies  SKI-NF-P[BODY].  This  is  easy  to  see.  Consider 
letting  BODY  be  (I  v),  then  EXP  =  S  (K  I)  I,  Therefore,  SKI-NF-P[EXP],  but  [not 
SKI- NF-P  [BODY]). 

Theorem  1.12:  X-TO-SKI  preserves  normal  forms.  Let  EXP  €  X-wff.  If  X-NF- 
P[EXP]  and  EXP'  =  X-TO-SKI[EXP],  then  SKI- NF-P  [EXP']. 

Proof: 

The  proof  is  by  structural  induction  on  EXP  There  are  three  cases  to  consider: 

Case  1;  ATOM-P[EXP]. 

By  definition  of  X-TO-SKI,  ATOM-P[EXP']. 

ATOM-P[EXP']  implies  SKI- NF-P  [EXP' ]. 

Case  2:  EXP  =  (X  bv  BODY)  There  are  three  sub-cases  to  consider. 

Case  2a;  bv  =  BODY. 

By  the  definitions  of  X-TO-SKl  and  .\BSTR.\CT.  EXP'  =  1 
ATOM-P[EXP']  implies  S  KI- NF-P  [EXP' ] 

Case  2b;  bv  occurs  in  BODY'  where  BODY'  =  X-TO-SKI  [BODY] 
COMBINATION-PpBODY'j,  for  otherwise 
BODY'  =  bv  =  BODY  which  is  case  2a 
By  the  definitions  of  X-TO-SKI  and  .\BSTRACT. 

EXP'  =  S  RATOR'  RAND' , 

where  RATOR'  =  ABSTRACT[bv.OPERATOR[BODY']]  and 
RAND'  =  ABSTRACT[bv,OPERAND[BODY']] 

EXP'  =  S  RATOR'  RAND'  implies 
[not  SKJ-REDEX-P[EXP']), 

(no<SKI-REDEX-P[OPERATOR[EXP']]),  and  SKI-NF-P[S] 

By  definition  of  X-NF-P,  X-NF-P[BODY]. 

By  induction,  SKd-NF-P[BODY']. 
ty  definition  of  SKI-NF-P, 

SKd-NT-P[OPERATOR[BODY']]  and  SKI-NF-P[OPERAND[BODY' ]]. 

By  Theorem  1.11,  then,  SKI-NF-P  [RATOR']  and  SIvl- NF-P  [RAND' ], 

These  facts  imply  SKI-NF-P [OPERATOR[EXP' ]]  and 
SKI-NF-P[OPERAND[EXP']]. 

Therefore,  SKI-NF-P  [EXP' ]. 

Case  2c:  bv  does  not  occur  in  BODY'  where  BODY'  =  X-TO-SKI [BODY], 

By  the  definitions  of  X-TO-SKI  and  ABSTRACT,  EXP'  =  K  BODY',  where 
BODY'  =  X-TO-SKI[BODY] 

(not  SKI-REDEX-P[EXP']) 

By  the  definition  of  X-NF-P,  X-NF-P[BODY']. 

By  induction,  SKI-NF-P[BODY' ].  These  facts  imply  SKI-NF-P  [EXP'], 

Case  3:  EXP  =  RATOR  RAND 

By  the  definitions  of  X-TO-SKI  and  ABSTRACT,  EXP'  =  RATOR'  RAND',  where 
RATOR'  =  X-TO-SKI  [RATOR]  and 
RAND'  =  X-TO-SKI[E^D]. 

By  induction,  SKI-NF-P  [RATOR']  and  SKI-NF-P  [RAND']. 

It  remains  to  show  that  [not  SKI-REDEX-P[EXP']). 

Assume  SKI-REDEX-P[EXP' ],  then,  by  Lemma  1.4,  /3-REDEX-P[EXP]. 
/3-REDEX-P[EXP]  contradicts  the  hypothesis  that  X-NF-P[EXP]. 

Hence  [not  SKI-REDEX-P[EXP' ]). 

Therefore  SKI-NF-P  [EXP' ]. 
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Let  EXP  e  X-wff.  If  EXP'  =  X-TO-SKI[EXP],  then  it  is  not  the  case  that  SKI-NF- 
P[EXP']  implies  X-NF-P[EXP].  As  an  example,  consider  the  X-wff  EXP  = 
(X  y  ((X  X  x)  y)).  EXP'  =  S  (K  I)  I.  SKI-NF-P[EXP']  but  [not  X-NF-P[EXP]). 

Theorem  1.13:  Abstraction  preserves  lazy-normal  form.  Let  v  £  VAR  and  BODY  £ 
SKI-wfif.  If  LAZY- NF-P [BODY]  and  EXP  =  ABSTRACT[v,BODY!,  then  LAZY- 
NF-P[EXP]. 

Proof: 

There  are  two  cases  to  consider: 

Case  1:  ATOM-P[BODY],  There  are  two  sub-cases  to  consider: 

Case  la;  v  =  BODY. 

By  the  definition  of  ABSTRACT,  EXP  =  i. 

EXP  =  I  and  ATOM-Pp]  together  imply  LAZY- NF-P  [EXP], 

Case  lb:  It  is  not  the  case  that  v  =  BODY. 

By  the  definition  of  ABSTRACT,  EXP  =  (K  BODY). 

EXP  =  K  BODY  implies  [not  SKI-REDEX-P[EXP]). 

This  and  the  fact  that  LAZY-NF-Ppv]  imply  LAZY-NF-P[EXP]. 

Case  2;  BODY  =  RATOR  RAND.  Again,  there  are  two  sub-cases  to  cons:’'er: 
Case  2a:  v  occurs  in  BODY. 

By  the  definition  of  ABSTRACT,  EXP  =  S  RATOR'  RAND' ,  where 
RATOR'  =  ABSTRACT[v, RATOR]  and  RAND'  =  ABSTRACT[v,RAND]. 
Since  the  SKI-wffs  S,  S  RATOR',  and  S  RATOR'  RAND'  are  not  SKl-redexes, 
LAZY-NF-P[S  RATOR'  RAND']  —  i.e.  LAZY-NF-P[EXP]. 

Case  2b;  v  does  not  occur  in  BODY. 

By  the  definition  of  ABSTRACT,  EXP  =  (K  BODY). 

Same  as  case  lb. 

End  Proof 

Let  EXP  £  X-wff.  If  EXP'  =  X-TO-SKI[EXP],  then  it  is  not  the  case  that  LAZY-NF- 
PpEXP']  implies  EXP  has  a  head-normal  form.  An  example  follows.  Let  EXP  = 
(X  X  {{X  y  (y  y))  (X  y  (y  y))))  which  implies  EXP'  =  K  (S  I  I  (S  I  I)).  LAZY-NF- 
P[EXP']  but  EXP  has  no  head-normal  form. 

Let  EXP  £  X-wff.  If  EXP'  =  X-TO-SKI[EXP],  then  it  is  not  the  case  that  SKI-NF- 
P[EXP']  implies  EXP  h  as  a  X-normal  form.  In  fact,  EXP  may  not  even  have  a  head- 
normal  form.  An  example  follows.  Let  EXP  =  (X  x  ((X  z  (z  z  x))  (X  z  (z  z  x)))).  The 
normal  reduction  sequence  for  EXP  looks  like: 

X  X  ((X  z  (z  z  x))  (X  z  (z  z  x))), 

X  x  ((X  z  (z  z  x))  (X  z  (z  z  x))  x)), 

X  X  ((X  z  (z  z  x))  (X  z  (z  z  x))  X  x)), 

X  X  ((X  z  (z  z  x))  (X  z  (z  z  x))  X  X  x)). 


» 


EXP  does  not  even  have  a  head-normal  form!  But  EXP'  = 

S  (S  (K  (S  (S  I  I)))  (S  (K  K)  I))  (S  (K  (S  (S  I  I)))  (S  (K  K)  I)) 
does  not  contain  any  SKI-REDEXes!  Therefore  EXP'  is  in  SKl-normal  form. 
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Definition  1.65:  Let  A  €  X-wff  A  is  in  abs-normal  form  iff  ABS-\F-P[A\  where 
ABS-NF-P[A]  ^ 

{or  VAR-P[A] 

ABSTRACTION- P  [A] 

{and  A  =  B  C 

{not  /?-REDEX-P[A]) 

ABS-NF-P[B] 

ABS-NF-P[C])). 

Informally,  a  X-wff  is  in  abs-normal  form  if  all  of  its  occurrences  of  /3-redexes  lie  in  the 
bodies  of  abstractions. 

Definition  1.68:  Let  A  €  X-wff.  A  is  in  abs-head-normal  form  iff  \ABS-HEAD-.\'F- 
P[A])  where 

ABS-HEAD-NF-P[A]  ^ 

{or  VAR-P[A] 

ABSTRACTION- P  [A] 

(and  A  =  (B  C) 

{not  ^REDEX-P[A]) 

.ABS-HEAD-NF-P[B])). 

Informally,  a  X-wff  is  in  abs-head-normal  form  if  all  of  its  occurrences  of  3-redexes  occur 
either  in  the  bodies  of  abstractions  or  in  the  operands  of  combinations  which  are  not  J- 
redexes  themselves. 

Theorem  1.14:  Let  E  €  X-wff.  If  E'  =  X-TO-SKI[E]  and  SKI-NF-P[E' ],  then  ABS- 
NF-P[E]. 

Proof: 

The  proof  is  by  structural  induction  on  E' . 

Case  1;  ATOM-P[E']. 

ATOM-P[E']  implies  that  either  VAR-P[E']  or  E'  =1. 

If  VAR-P[E'],  then  VAR-P[E]  which  implies  ABS-NF-P[E]. 

In  case  E'  =  I,  E  ==  (X  v  v)  for  some  variable  v.  Again,  ABS-NF-P[E] 

Case  2:  E'  =  RATOR'  RAND' . 

E'  a  combination  implies  that  either  E  an  abstraction  or  a  combination 
If  E  is  an  abstraction,  then  ABS-NF-P[E]. 

So,  suppose  E  —  RATOR  RAND 

By  definition  of  SKl-NF-P,  both  RATOR'  and  RAND'  are  in  SKI-normal  form 
By  definition  of  X-TO-SKI,  RATOR'  =  X-TO-SK1[RATOR]  and 
RAND'  =  X-TO-SKI[RAND]. 

By  induction,  both  RATOR  and  RAND  are  in  abs-normal  form, 

E  is  not  a  /S-redex,  for  if  it  was,  E'  w'ould  be  an  SKl-REDEX,  by  Lemma  1  4 
Therefore,  ABS-NF-P[E]. 

End  Proof 

Let  EXP  €  X-wff.  If  EXP'  ==  X-TO-SKI  [EXP],  then  it  is  not  the  case  that  .ABS-NF- 
P[EXP]  implies  SKI-NF-P[EXP'],  Here’s  an  example  Let  EXP  =  (X  x  ((X  y  y)  a)), 
which  implies  EXP'  =  K  (I  a),  which  is  not  in  SKI-NF 
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Theorem  1.15:  Let  EXP  €  X-wff.  If  EXP'  =  X-TO-SKI[EXP],  then  ABS-HEAD- 
NF-PpXP]  iff  LAZY-NF-P[EXP'l. 

Proof: 

First,  suppose  ABS-HEAD-NF-P[EXP].  To  show:  LAZY-NF-P[EXP']. 

Shown  by  structural  induction  on  EXP. 

There  are  three  cases  to  consider: 

Case  1:  ATOM- P [EXP], 

By  the  definition  of  X-TO-SKI,  ATOM-P[EXP' ]. 

ATOM-P[EXP']  implies  LAZY-NF-P[EXP']. 

Case  2;  EXP  =  (X  bv  BODY)  There  are  three  sub-cases  to  consider: 

Case  2a:  bv  ==  BODY. 

By  the  definitions  of  X-TO-SKI  and  ABSTRACT,  EXP'  =  I. 

EXP'  =  1  and  ATOM-P[I]  together  imply  LAZY-NF-P[EXP']. 

Case  2b:  bv  occurs  in  BODY  (and  COMBI NATION-P [BODY]). 

By  the  definitions  of  X-TO-SKI  and  ABSTRACT,  EXP'  =  S  RATOR'  RAND', 
where 

BODY'  =  X-TO-SKI[BODY], 

RATOR'  -=  ABSTRACT[bv,OPERATOR[BODY']],  and 
RAND'  =  ABSTRACT  [bv, OPERAND  [BODY']]. 

[not  SKI-REDEX-P[EXP']), 

(no«  SKI-REDEX-P[OPERATOR[EXP']]),  and  LAZY-NF-P[S]. 

Therefore,  by  the  definition  of  LAZY-NF-P,  LAZY-NF-P[EXP']. 

Case  2c:  bv  does  not  occur  in  BODY. 

By  the  definitions  of  X-TO-SKI  and  ABSTRACT,  EXP'  =  K  BODY',  where 
BODY'  =  X-TO-SKI[BODY]. 

(noi  SKI-RED EX-P[EXP'])  and  LAZY-NF-P[K]. 

These  facts  imply  (by  the  definition  of  LAZY-NF-P)  LAZY-NF-P[EXP' ]. 

Case  3:  EXP  =  RATOR  RAND 
By  the  definition  of  X-TO-SKI,  EXP'  =  RATOR'  RAND',  where 
RATOR'  =  X-TO-SKI  [RATOR]  and  RAND'  =  X-TO-SKl[RAND]. 

By  the  definition  of  ABS-HEAD-NF-P,  ABS-HEAD-NF-P[RATOR] 

By  induction,  LAZY-NF-P  [RATOR']. 

It  remains  to  show  {not  SKI-REDEX-P[EXP']). 

Assume  SK.I-REDEX-P[EXP'],  then,  by  Lemma  1.4,  /3-REDEX-P[EXP]. 
/?-REDEX-P[EXP]  contradicts  the  hypothesis  that  ABS-HEAD-NF-P  [EXP]. 

Hence  {not  Sia-REDEX-P[EXP']). 

Therefore,  LAZY-NF-P  [EXP']. 

It  has  been  shown  ABS-HEAD-NF-P  [EXP]  implies  LAZY-NF-P[EXP']. 

Now  suppose  LAZY-NF-P  [EXP'].  To  show:  ABS-HEAD-NF-P[EXP]. 

Shown  by  structural  induction  on  EXP' . 

Case  1:  ATOM-P[EXP' ]. 

ATOM-P[EXP']  implies  that  either  VAR-P[EXP']  or  EXP'  =  I. 

If  VAR-P[EXP'],  then  VAR-P[EXP]  which  implies  ABS-HEAD-NF-P  [EXP]. 

In  case  EXP'  =  I,  EXP  =  (X  v  v)  for  some  variable  v. 

Again,  it  is  the  case  that  ABS-HEAD-NF-P  [EXP]. 

Case  2:  EXP'  =  RATOR'  RAND' 

EXP'  a  combination  implies  that  either  EXP  an  abstraction  or  a  combination. 

If  EXP  is  an  abstraction,  then  ABS-HEAD-NF-P[EXP]. 

So  suppose  EXP  =  RATOR  RAND 
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By  definition  of  LAZY-NF-P,  RATOR'  in  lazy-normal  form. 

By  definition  of  X-TO-SKI,  RATOR'  =  X-TO-SKI [RATOR], 

By  induction,  RATOR  is  in  abs-normal  form. 

F.YP  is  not  a  /3-redex,  for  if  it  was,  EXP'  would  be  an  SKI-REDEX,  by  Lemma  1.4. 
Therefore,  ABS-HEAD-NF-P[EXP]. 

It  has  been  shown  that  LAZY-NF-P  [EXP' ]  implies  ABS-HEAD-NF-P[EXP]. 

Therefore  ABS-HEAD-NF-P[EXP]  iff  LAZY-NF-P-[EXP']. 

End  Proof 

It  is  not  the  case  for  an  arbitrary  SKI-wff  E'  in  SKI-NF  that  SKI-TO-X[E']  is  in  ABS- 
NF.  For  example,  let  E'  =  (K  z).  E'  is  in  SKI-NF.  It  is  not  the  case,  however,  that 
SKI-TO-X[E']  =  ((X  X  (X  y  x))  z)  in  ABS-NF.  This  same  example  demonstrates  that 
SKI-TO-X  does  NOT  “preserve  redexes”. 

Conjecture  1.1:  Let  A  €  SKI-wff.  If  A'  =  SKI-TO-X[A]  and  SKI-NF-P[A],  then  A' 
has  an  abs-normal  form. 

The  following  result  is  an  immediate  consequence  of  the  previous  theorem.  It  is  included 
here  for  completeness. 

Theorem  1.16:  \-TO-SKl  preserves  quasi-normal  forms.  Let  EXP  G  X-wff.  If  HEAD- 
NF-P[EXP]  and  EXP'  =  X-TO-SKI  [EXP],  then  LAZY-NF-P  [EXP']. 

Proof: 

From  the  definitions  of  HEAD-NF-P  and  ABS-HEAD-NF-P, 
it  is  clear  that  HEAD-NF-P  [EXP]  implies  ABS-HEAD-NF-P[EXP]. 

By  Theorem  1.15,  then,  LAZY-NF-P  [EXP']. 

End  Proof 

The  relationship  between  SKI-wffs  in  lazy-normal  form  and  X-wffs  has  been  demon¬ 
strated  formally.  The  counterpart  wffs  in  the  X-calculus  to  SKI-wffs  in  lazy-normal  form 
are  the  X-wffs  in  abs- he  ad- normal  form.  In  a  later  chapter  it  will  be  argued  that,  when 
reducing,  “stopping  at”  lazy-normal  form,  rather  than  continuing  on  to  SKI-normal 
form,  has  many  computational  advantages. 

1.5.  The  X-G-calculus 

The  X-G-calculus,  presented  in  [Wadsworth  1971],  is  a  deterministic  graph  oriented  ver¬ 
sion  of  Church’s  X-calculus.  That  is,  well-formed  formulas  in  the  X-G-calculus  are  rooted 
acyclic  graphs  as  opposed  to  strings  in  the  X-calculus. 

The  Standardization  Theorem  for  the  X-calculus  guarantees  that  if  a  X-wff  has  a  X- 
normal  form  then  it  can  be  reached  by  a  X-normal  reduction  sequence.  Unfortunately, 
performing  X-normal  reductions  on  strings  often  causes  duplication  of  redexes,  thus 
creating  more  work  than  necessary.  Using  graphs  as  well-formed  formulas  instead  of 
strings,  Wadsworth  was  able  to  reduce  (but  not  eliminate)  the  number  of  duplicated 
redexes  that  arise  when  performing  X-normal  reductions. 

What  follows  is  an  informal  account  of  Wadsworth’s  X-G-calculus  and  his  suggested 
implementation  of  it.  For  a  formal  description  of  the  calculus,  the  reader  is  encouraged 


to  read  Chapter  4  of  Wadsworth’s  thesis,  [Wadsworth  1971], 


1.5.1.  Well-formed  Formulas 

Free  variable  occurrenecs  are  terminal  nodes  in  the  graph  labeled  with  the  name  of  the 
variable. 

A  combination  is  a  graph  whose  root  node  has  two  outgoing  arcs.  One  arc  points  at  the 
graph  which  is  the  combination’s  operator  and  the  other  points  at  the  graph  which  is 
the  combination’s  operand. 

An  abstraction  is  a  graph  whose  root  node  has  a  single  outgoing  arc.  The  arc  points  at 
the  graph  which  is  the  body  of  the  abstraction.  Free  occurrences  of  the  abstraction’s 
bound  variable  in  the  body  are  nodes  which  point  back  to  the  root  node  of  the  abstrac¬ 
tion.  These  “back  pointing’’  arcs,  emanating  from  the  bound  variable  nodes,  are  treated 
specially  (see  next  section).  Think  of  them  as  dotted  arcs  (lines)  and  the  other  arcs  as 
solid.  It  was  stated  in  the  introduction  to  this  calculus  that  these  graphs  were  acyclic. 
That  statement  was  a  simplification  of  the  truth.  The  truth  is  that  the  only  cycles  in 
the  graph  are  those  containing  exactly  one  dotted  arc. 


The  X-G-wff  equivalent  of  the  X-wff:  (X  x  (x  (a  x)))  ((X  z  (z  b))  c) 

Figure  1.1 

Some  liberties  were  taken  in  the  preceding  description  of  Wadsworth’s  wfls.  In 
Wadsworth’s  thesis  the  back  pointers  were  not  part  of  the  formal  calculus  —  they  were 
introduced  as  an  efficient  representation  for  bound  variable  nodes  in  his  implementation 
of  the  calculus.  In  his  formal  description,  bound  variable  nodes  looked  just  like  free 
variable  nodes.  One  determined  that  they  were  bound  by  seeing  if  there  was  a  path 
from  an  abstraction  node  (labeled  with  the  name  of  the  variable  it  was  binding)  to  it  and 
making  sure  that  the  variable  names  were  the  same. 


1.5.2.  Reduction 

/?-reduction  is  performed  in  the  X-G-calculus  by  pointer  manipulation  rather  than  by 
string  substitution. 


The  X-G-wff  in  Figure  1.1  after  contracting  leftmost  redf 

Figure  1.2 


Note  that  the  redex  ((X  z  (x  b))  c)  is  not  duplicated  (as  would  have  happened  if  the 
equivalent  reduction  of  the  X-wff  had  been  performed).  Instead,  the  redex  is  now  being 
shared  by  two  portions  of  the  reduced  X-G-wff. 


To  accomplish  this  reduction,  the  two  following  operations  were  performed. 

1.  An  indirection  arc  (different  from  both  the  solid  arcs  and  the  dotted  arcs  described 
above)  was  drawn  from  the  root  of  the  wff  to  the  body  of  the  abstraction.  This  new 
kind  of  arc  is  represented  by  a  dashed  line  in  the  figure 

2.  Another  indirection  arc  was  drawn  from  the  root  of  the  abstraction  to  the  operand 


Observe  that  is  not  necessary  to  search  the  body  of  the  ,.^-redex’s  operator  (abstraction) 
for  the  free  occurrences  of  the  abstraction’s  bound  variable  to  perform  the  contraction  ■ 


When  the  algorithm  “sees”  a  node  (n  J  which  has  been  "forwarded”  via  an  indirection 
arc  to  another  node  (uo),  it  ignores  node  and,  instead,  "sees”  nod*'  n —  the  node  Uj 
was  forwarded  to.  Variable  nodes  which  have  (dotted)  arcs  emanating  from  them  (the 
bound  variables)  are  similarly  ignored  if  the  abstraction  node  to  which  they  point  has 
been  forwarded.  Variable  nodes  which  point  back  to  abstraction  nodes  which  have  not 
been  forwarded  are  treated  as  terminal  nodes  in  the  graph 


This  simple  version  of  X-normal  /^-reduction  of  X-G-wffs  will  not  suffice  in  all  situations 
In  the  case  where  the  operator  (the  abstraction)  of  the  J-redex  is  pointed  at  by  nujre 
than  one  node  (not  counting  the  bound  variable  back  pointers),  a  portion  of  the 
abstraction’s  body  must  be  copied  before  the  contraction  can  take  place  If  this  copying 
is  not  performed,  erroneous  results  may  oerur  .\s  an  example  of  this  situation,  observe- 
the  following  X-G-wff: 


^  Axvind,  in  a  paper  which  reviews  several  graph  vnenled  interpreters  ([,\rvind  1984]).  in¬ 
correctly  states  that  all  leaves  of  the  operatcir  inusi  be  se,ir(  hed  for  '/(  rnrrences  v.if  the  abstraction  s 
bound  variable  Arvind  (mistakenly)  thinks  that  m.iny  (one  fc.i  .-ach  bound  variable)  indirection 
arcs  to  the  operand  are  placed  in  the  body  of  the  ..per,i.t<'t  Instead.  )ust  one  indirection  arr  from 
the  abstraction's  root  to  the  operand,  is  required 
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reduction  of  the  type  described  above  were  performed  on  the  X-G-wfT  in  Figure 
en  the  result  would  not  be  a  X-G-wfT  at  all!  The  result  would  be  the  following 


Note  the  cycles  in  this  non  X-G-wft 

Figure  1.4 

er  to  insure  a  proper  J-contraction.  some  copying  must  take  place  before  the 
n  is  attempted 


con- 
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The  X-G-wfT  in  Figure  13  after  copying 

Figure  1.5 

A  /3-reduction  may  be  safely  performed  on  the  graph  displayed  above  The  result  is  the 
X-G-wff: 


After  performing  3-reduction 

Figure  1.6 

The  parts  of  the  body  which  do  not  contain  free  '.iccurretices  of  the  hound  variable  are 
called  the  abstraction's  free  expressions  F I'ee  expr-ssioris  which  are  not  contained  in 
any  of  the  abstraction's  other  free  expressions  are  called  the  abstraction  s  maximal  frpc 
expressions,  this  name  was  given  to  them  later  in  [Hughes  H)8‘2a]  These  maximal  free 
expressions  of  the  operator  need  not  be  copied  before  performing  the  contraction 
Wadsworth’s  interpreter  is  called  fully  lazy  since  it  performs  normal  order  graph  reduc¬ 
tion  (making  it  lazy)  and  avoids  repeated  reduction  of  constant  expressions  (since  they 
are  not  copied). 

Observe  that  since  some  copying  must  be  done,  when  a  redex  exists  in  the  expressions 
copied,  It  will  be  copied.  Wadsworth's  calculus,  therefore,  is  not  optimal  —  l  e  there 
may  be  shorter  reduction  sequences  ending  in  n'>rmal  form  For  example,  consider  the 
expression : 

(X  X  (x  x|){X  y  ((X  z  z)  y)| 
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which,  when  reduced  to  normal  form  m  \\’ad.sworth's  calculus,  takes  four  steps  (because 
the  boldface  redex  must  be  copied)  If  however,  the  boldlace  redex  is  reduced  first,  then 
it  can  be  reduced  to  normal  form  in  only  three  steps  '^ 


1.6.  Summary 

Three  reduction  calculi  have  been  described  the  X-calculus,  the  SKI-calculus,  and  the  X- 
G-calculus.  The  X-calculus  looks  the  most  like  a  programming  language.  The  SKI- 
calculus  is  the  simplest.  The  X-G-calculus  appears  to  be  the  most  implementation 
oriented. 

In  the  next  chapter,  two  more  calculi  are  presented:  the  SKI-G-calculus  and  the  LNF- 
calculus.  Both  are  deterministic  and  “machine  oriented’’  The  SKI-G-calculus  is  a  graph 
oriented  version  of  the  SKI-calculus.  The  LN'F-calculus  is  also  graph  oriented  but  con¬ 
tains  many  more  functors  and  a  new  class  of  atomic  wffs  called  constructors.  This  richer 
calculus,  when  realized,  yields  an  efficient  runtime  system  for  the  LNF  language.  The 
runtime  system’s  implementation  is  detailed  in  Chapter  3.  .Section  4. 
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3  Wadsworth,  in  his  thesis,  also  points  out  that  his  calculus  is  nonoptimal  Unfortunately  the 
example  he  presents  ([Wadsworth  1971],  page  187)  which  purports  to  demonstrate  this  fact  does 
not  do  so 
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Chapter  2 

Two  Deterministic  Graph  Oriented  Reduction  Calculi 


The  LNF  Language’s  run-time  system  (its  Lisp  Machine  implementation  is  detailed  in 
Chapter  3)  is  a  realization  of  a  deterministic  reduction  calculus  called  the  LNF-calciilus 
The  LNF-calculus  is  based  on  another  deterministic  reduction  calculus  called  !  '  SL’ 
calculus.  Both  calculi  are  given  formal  definitions  in  this  chapter. 


t.i- 


The  SKI-G-calculus  is  presented  first.  The  SKI-G-calculus,  like  Wadsworth’s  X-G- 
calculus  ([Wadsworth  1971]),  is  graph  oriented.  Instead  of  being  based  on  the  X-calculus, 
however,  the  SKI-G-calculus  is  a  modification  of  the  SKI-caicuius. 

In  essence,  the  SKI-G-calculus  is  a  formalization  of  the  “normal  order  combinator  graph 
reduction”  machine  informally  described  in  [Turner  1979c].  The  calculus’  description 
although  similar  in  style  to  Wadsworth’s  description  of  the  X-G-calculus,  is  much  more 
“machine  oriented”  than  Wadsworth's.  P'or  example.  Wadsworth  relegates  forwarding 
arcs  —  forwarding  arcs  are  also  often  referred  re  as  indirection  pointers  or  invisible 
pointers  --  to  his  implementation  of  the  lalcniu;-  and  does  not  even  mention  garbage 
nodes  in  his  discussions.  On  the  oth'T  hand  in  'h.-  SKl-G-calculus,  garbage  vertices  and 
f 'rwar-Jing  arcs  .ire  given  forrn  ii  d'dini'i'  n.'-  T:i- 
:mr,  taken  togetl’ci,  come  verv  <  1  .s.-  i..  iuinc 
.cs  wed  i!.^  defi.'Mtic.ii 


di’iiiion.s  '^1  :'I\.I-G-wlj  and  SK’i-G- 
in: nieni'-nt ation  cf  rfu-  SKl-G-c;' !c;i :us 


It  1.S  iaimed.  hut  not  proved,  that  the  (ocfei  niiii; -i  ;c :  SKl-G 
equivalent  to  the  ( nondeterministici  .oKl-.-ah  uiu'-  '.uid.  .d 
al.  i 


valcn  lu.'-  IS  com  I  ut  ation.i  lh’ 
course,  to  the  X-calcuius  et 


.\.s  stated  above,  the  L.NF-calculus  i.s  leu'-cd  on  the  .SKI-Ll-caiculus  Its  set  of  w  tls  (LNF- 
wff)  contains  .SKl-G-wfT.  L.N'F-wff  l,>■nt;nns  .'sKl-G- wtT  by  virtim  of  the  fact  that  LNF- 
calculus’  set  of  functors  (combinators.  primitive  operators)  ceuiiains  SKl-G-calculus' 
functor  set.  The  LNF-calculus  has,  in  addition  to  Schonhnkel’s  functors  S,  K,  and  1 
([Schonfinkel  192-1]);  Curry’s  B.  C.  and  W  I  [Curry  Id-uS]  );  Turner's  S'  and  C' ,  Scheevel's 
B'  ([Turner  1979a]  and  [Turner  1084]i,  numeric  functors,  boolean  functors,  and  a  few 
others  of  the  author’s  design.  Be.sides  ilu-  addition  of  these  new  functors,  new  atoms, 
called  constructors,  are  introduced  into  l.NF-wff 
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The  “immediately  reducible  to”  relation  of  the  LNF-calculus  (LNF-imr)  differs  from 
SKI-G-imr  in  the  following  three  ways.  Firstly,  LNF-imr  does  not  contain  SKI-G-imr  — 
i.e.  there  are  wETs  which  are  reducible  in  the  SIG-G-calculus  but  irreducible  in  the  LNF- 
calculus.  These  are  exactly  those  wffs  in  SKI-G-lazy-normal  form  (containing  no  initial 
redex)  but  containing  redexes  elsewhere.  In  sum,  many  of  the  reduction  contexts  present 
in  the  SKI-G-calculus  do  not  exist  in  the  LNF-calculus.  Recall  that  a  reduction  context  is 
a  context  inside  which  a  reduction  is  permitted  to  take  place.  These  reduction  contexts 
are  specified  by  the  contextual  reduction  rules  of  a  calculus.  Secondly,  the  new  functors 
bring  with  them  new  ways  of  reducing  the  LNF-wffs  having  them  as  initial  atoms  —  via 
new  substantive  reduction  rules.  Lastly,  the  new  functors  (“making  up  for”  the  lack  of 
general  reduction  contexts  present)  bring  with  them  new  “functor  specific”  reduction 
contexts  —  via  new  contextual  reduction  rules.  The  end  result  is  a  lazy  “immediately 
reducible  to”  relation  which  allows  “just  enough  reduction  to  get  the  job  done”.  The 
addition  of  the  constructors  does  not  substantively  affect  the  “immediately  reducible  to” 
relation.  However,  their  addition  (by  increasing  the  size  of  the  set  of  well-formed  formu¬ 
las)  indirectly  extends  LNF-imr. 

The  LNF-calculus,  of  course,  does  not  have  any  more  computational  power  than  the  oth¬ 
er  calculi  defined  herein  —  it  is,  however,  a  few  steps  nearer  the  “directly  and  efficiently 
implementable”  end  of  the  reduction  calculus  spectrum  than  the  others.  It  is  hoped  that 
a  calculus  which  bridges  the  gap  between  traditionally  defined  formal  calculi  and  their 
implementations  will  be  easier  to  implement  and  its  implementation  easier  to  reason 
about. 

The  notions  of  initial-redex  and  lazy-normal  form,  as  defined  in  the  SKI-calculus,  have 
corresponding  definitions  in  the  SKI-G-calculus  and  the  LNF-calculus.  Thesfi  concepts 
figure  prominently  in  the  organization  of  the  two  calculi. 


2.1.  The  SKI-G-calculus 


The  SKI-G-calculus  is  a  graph  oriented  version  of  Schbnfinkel’s  SKI-calculus. 


2.1.1.  Well-formed  Formulas 


As  SKI-G-calculus  well-formed  formulas  (SKI-G-wffs)  are  defined  in  terms  of  graphs,  the 
graph  related  conventions  which  will  be  used  are  described  below. 


A  graph  is  defined  by  a  set  of  vertices  and  a  set  of  arcs.  Identifiers  denoting  vertices  are 
written  in  lowercase  while  identifiers  representing  sets  of  vertices  are  written  in  upper¬ 
case.  Just  as  in  the  preceding  chapter,  wffs  are  also  denoted  by  uppercase  identifiers.  An 
arc  having  origin  Vj  and  destination  v.,  is  written  as  the  ordered  pair  <Vi,v.2>.  Paths 
are  sequences  of  arcs  (possibly  empty)  of  the  form: 

<Vl,V2>,<V2,V3>,  .  .  .  ,  <v„_2.'^„_,>,<v„_i,v„  >. 

A  vertex  v„  is  said  to  be  accessible  from  Vj  if  there  is  a  path  from  Vj  to  v„  .  Hence, 
each  vertex  is  accessible  from  itself  via  the  path  of  length  0.  For  rooted  graphs  G  (those 
which  contain  a  vertex  designated  as  the  root),  the  set  of  vertices  accessible  from  the 
root  is  represented  by  the  expression  ACCEPSIBLE-VS[G]. 
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Definition  2.1:  An  SKI-G-wff  'X.  is  a  finite  rooted  graph  represented  by  the  sextuple 

< VS, RATOR, RAND, FWD, ATOM, root >  where 
{and 

VS  is  the  (finite)  set  of  vertices  of  X 
RATOR,  RAND,  and  FWD  are  sets  of  arcs  — 
together  these  sets  partition  the  set  of  arcs  of  X 
ATOM  is  a  nonempty  partial  function  from  VS  to  {S.K,!} 
root  is  the  vertex  in  VS  designated  as  X’s  root 
For  tdl  vertices  v  €  VS, 

{and  the  out  degree  of  v  is  either  0,  1.  or  2 
in  case  v’s  out  degree  is  0 
then  ATOM[v]  defined 
in  case  v’s  out  degree  is  1,  then 
{and  the  arc  having  origin  v  lies  in  FWD 
ATOM[v]  undefined ) 
in  case  v’s  out  degree  is  2,  then 
one  of  the  arcs  having  origin  v  lies 
in  RATOR,  the  other  in  RAND,  and 
ATOM[v]  undefined, 
there  is  no  non-empty  path  from  v  to  v, 
all  the  arcs  of  which  are  in  FWD) 
there  is  a  v  €  VS  such  that: 

{and  V  is  accessible  from  root 
V  has  out  degree  0  or  2)) 

Note  that  variables  are  not  a  part  of  this  calculus.  They  have  been  excluded  as  only 
closed  X-wffs  are  transformed  into  SKI-G-wffs.  Well-formed  LNF  programs  will  not  con 
tain  occurrences  of  free  variables.  Since  the  transformation  replaces  all  occurrences  of 
bound  variables  with  SKI-G-wffs  not  containing  variables,  and  there  are  no  free 
occurrences  of  variables  in  the  X-wff  being  transformed  (it  is  closed),  the  resulting  SKI- 
G-wff  will  not  contain  any  variables  at  all. 

Definition  2.2;  Let  X  =  <  VS  , RATOR, RAND. FWD  .ATOM, root>  be  an  SIvI-G- 
wff. 

•  The  root  ofX  (/t’OOr[X])  is  root 

•  The  set  of  vertices  ofX  (F.SpC])  is  VS. 

•  The  rator  arc  set  ofX  (/?.4  TO/?[X])  is  RATOR 

•  The  rand  arc  set  ofX  (/?.4A'Z)[X])  is  R.AND 

•  The  forwarding  arc  set  ofX  (FIFZ?[X])  is  FWD 

•  The  atom  function  ofX  {ATOM\X]  \  is  ATOM 

Note  that  the  definition  of  SKI-G-wfT  does  not  rf-quir'’  that  each  vertex  of  an  SKI-G-wfl 
be  accessible  from  the  SKI-G-wff’s  root  It  does  require,  however,  that  all  vertices  in  an 
SKI-G-wff’s  vertex  set,  accessible  or  not,  be  eligible  for  "roothood  "  —  i.e  let  X  be  an 
SKI-G-wff  and  let  v  be  any  vertex  in  VSpCj.  It  can  be  shown  that  the  graph,  which  is 
iust  like  the  SKI-G-wff  X  exceot  that  it  has  v  for  a  root,  also  Qualifies  as  an  SKI-G-wff 


DeSnition  2.3:  Let  X  be  an  SKI-G-wff.  The  vertices  in  VSpCj  which  are  inaccessible 
from  X’s  root  (not  in  ACCESSIBLE-V’SpC])  are  the  garbage  ofX..  This  set  of  ver¬ 
tices  is  denoted  by  the  expression  GARBAGE\^. 

Definition  2.4:  Let  X  be  an  SKI-G-wfT.  X  is  clean  [CLEAN-P[iC])  iff  VSpC]  = 

ACCESSIBLE-VSpq. 

An  SKI-G-wff  < VS, RATOR,RAlND,FWD. ATOM, root >  is  represented  on  paper  as 
follows.  A  vertex  v  having  out  degree  0  is  represented  by  the  functor  ATOM[v].  A 
vertex  v  having  out  degree  1  (a  forwarding  vertex)  is  represented  by  a  dot  (•)  having  one 
dotted  arrow  (representing  the  arc  <v,fwdv>  in  FWD)  pointing  at  the  representation 
of  fwdv.  A  vertex  having  out  degree  2  is  represented  by  a  dot  having  two  arrows  - 
representing  the  two  arcs  which  emanate  from  it  <v,rtr>  (left  arrow)  and  <v,rnd> 
(right  arrow)  -  which  point  at  the  representations  of  rtr  and  rnd.  The  vertex  root  is 
often  labeled  with  the  string  “'ROOT  ”.  Often  other  vertices  are  given  labels  to  ease 
reference.  See  the  figures  below  for  some  examples  of  this  representation. 


ROOT-  X  \/j_-  K 


The  SKI-G-wff;  < (v  1,^2}, i,I>,<V2.K>},v  j> 

Figure  2.1 

Note  that  the  vertex  V2  in  the  above  diagram  is  a  garbage  vertex.  It  is  garbage  since  it 
is  inaccessible  from  the  root  (t>i). 


K  ^ 


The  Clean  SKI-G-wff: 
Figure  2.2 
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An  SKI-G-wfF  with  Some  Forwarding  Vertices  and  Some  Shared  Subformulas 

Figure  2.3 

This  representation  is  a  good  one  as  it  allows  one  to  observe  the  SI<J-G-wfFs  structure  at 
a  glance.  With  it  one  can  easily  identify  a  wlT's  garbage,  root,  shared  subformulas,  and 
cycles.  Often,  however,  because  this  representation  is  so  difficult  to  typeset,  SKI-G-wffs 
are  displayed  linearly  —  just  like  SKl-wlLs.  \Vl,en  using  this  linear  representation,  gar¬ 
bage  and  forwarding  nodes  are  ignored  completely,  shared  structures  are  undetectable, 
and  cycles  are  unrepresentable.  This  linear  display  is  used  only  when  these  a.sDects  of 
the  wff  are  not  important. 

Let  <VS,RATOR,RALND,FWD,ATOM,root>  be  an  SKI-G-wff.  Viewing  the  arc 
sets  RATOR,  RAND,  and  FWD  as  functions  from  vertices  to  vertices  is  sometimes 
useful.  Let  S  be  either  RATOR,  RAND,  or  FWD.  For  all  arcs  <V£,V2>  in  S,  S[vJ 
=  V2.  Let  F  be  a  function  with  domain  D.  If  SD  is  a  subset  of  D,  then  the  restriction 
of  F  to  sub-domain  SD  is  written  F|SD. 

Definition  2.5:  Let  X  be  an  SIG-G-wff.  The  clean  SKI-G-wff  in  X  is  CLEAKp^  where; 
CLEAN  pq  ^ 

< VS' , RATOR' , RAND'  ,FAVD'  ,ATOM'  .ROOTpq  > 
where 

VS'  is  ACCESSIBLE- VS  pq  & 

RATOR'  IS  RATORpqiVS'  & 

RAND'  is  RAND  pq  I  VS'  & 

FWD'  isFWDpqiVS'  & 

ATOM'  is  ATOMpC]|VS' 
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CLEANed  Version  of  the  SKI-G-wff  in  Figure  2.3 
Figure  2.4 


The  definition  of  the  function  CLEAN  might  be  viewed  as  a  very  high  level  specification 
of  a  garbage  collector.  By  providing  different  realizations  of  the  predicate  ACCESSIBLE 
and  the  function  restricting  operator  |,  one  is  able  to  create  different  implementations  of 
the  specification. 

Definition  2.6:  Let  X  be  an  SKI-G-wff  and  let  v  be  a  vertex  in  VSpC].  The  vertex  v  is 
forwarded  to  v'  in  X  (also  FORWARDED-P[v,JC],  FOR  WARDED- TOiv,^^  =  v')  iff 
<v,v'  >  €  FWDpC]. 

Definition  2.7:  Let  X  be  an  SKI-G-wff.  X  is  compact  {COMPACT-P\^)  iff  for  all  ver¬ 
tices  V  €  VSpq,  FORWARDED-P[v,X]  implies  v  e  GARBAGEpq. 

The  following  definition  defines  a  function  (COMPRESS)  which  removes  one  source  of 
indirection  in  an  SKI-G-wff  containing  a  forwarding  arc.  It  does  so  by  replacing  all  arcs 
which  point  at  the  forwarded  vertex  with  arcs  which  point  at  the  vertex  to  which  the 
forwarded  vertex  points. 

Definition  2.8:  Let  X  be  an  SKI-G-wff.  Let  v  €  VSpC]  such  that  FORWARDED- 
P[v,X].  The  SKI-G-wff  contained  in  X  compressed  at  -v  is  COMPRESS[\ ,X\,  where 
COMPRESS  [v,X] 

<  VS  pC],RATOR, RAND, FWD..\TOMpq,  root  > 
where 

RATOR  is  RATORpq 
with  all  arcs  of  the  form  <u,v> 
replaced  with  <u,FORVVARDED-TO[v,X]>  & 

RAND  is  RAND  pq 
with  all  arcs  of  the  form  <u,v> 

replaced  with  <u,FORWARDED  TO[vXl>  & 

FV/D  IS  FWDpC] 
with  all  arcs  of  the  form  <u,v> 
replaced  with  <u,FORWARDED-TO[v,X]>  & 
root  IS  [if  {not  ROOTpC]  =  v) 
then  ROOTpC] 

else  FORWARDED-TO[v,X]) 
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hat  although  all  of  the  arcs  whose  destination  had  been  the  forwarding  vertex 
leen  removed,  the  forwarding  vertex  and  its  forwarding  arc  have  not.  The  for- 
g  vertex  is  now  inaccessible  from  the  root  of  the  new  SKI-G-wff.  It  therefore  is 
the  garbage  of  the  compressed  SKI-C-wfT 

;xt  function  (COMPACT),  defined  in  terms  of  COMPRESS,  makes  all  sources  of 
tion  (all  forwarding  vertices)  into  garbage. 

tion  2.9:  Let  X  be  an  SKI-G-wff.  The,  compact  SKI-G-wff  contained  in  X  is 
5MPACrpC])  where: 
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user  input. 

Definition  2.10;  Let  X  be  an  SKI-G-wff.  X  is  a  combination  [COMBINATION-P^S]) 
iff  there  is  an  arc  in  RATORpC]  (which  implies  there  is  an  arc  in  RANDpC]  also) 
whose  origin  is  in  ACCESSIBLE)-VSpC].  X  is  an  atom  (ATOAf-PpC])  iff  it  is  not  a 
combination. 

Note  that  an  atomic  SKI-G-wff  (a  wff  A  such  that  ATOM-P[A])  may  contain  more  than 
one  accessible  vertex.  There  may  be  a  path,  composed  exclusively  of  forwarding  arcs, 
from  the  root  to  a  vertex  which  is  mapped  by  the  wff’s  atom  function  to  one  of  the  func¬ 
tors:  S,  K,  or  I. 

Definition  2.11:  Let  X  be  an  SKI-G-wff  and  let  v  be  in  VSpC].  The  SKI-G-wff 
described  in  X  rooted  at  v  is  (5K/-G- ITFFpC.v])  where 
SKI-G-WFF  fX,v]  ^ 

<  VS  pC]  ,RATOR  pq  .RAND  pq  ,F  WD  pC] ,  ATOMpq ,  v  > 

If  V  in  (ACCESSIBLE-VSpq),  then  SKI-G-WFF  pC,v]  is  called  the  subformula  ofK 
rooted  at  v  or  SUBFORMULApC,v]. 

The  subformula  of  an  SIG-G-wff  X  rooted  at  v  (call  it  X')  is  often  referred  to  as,  simply, 
a  subformula  of  X.  It  is  also  said  that  X  contains  X'  or  X'  occurs  in  X.  It  is  impor¬ 
tant  to  observe  that  for  any  SKI-wff  X  and  any  Y  which  is  a  subformula  of  X  the  sets 
VSpq  and  VSpq  are  identical.  Besides  the  subformulas  of  X,  there  are  other  SKI-G-wffs 
described  by  X.  These  are  the  SKI-G-wffs  which  are  rooted  at  the  vertices  in 

GARBAGEpq. 

Definition  2.12;  Let  X  be  an  SKI-G-wff.  If  X  is  a  combination,  then  there  are  two  (not 
nei’essarily  distinct)  immediate  subformulas  ofK: 

OPERATOR\X]  5^ 

(;/FORWARDED-P[ROOTpq,X] 

then  OPERATOR[SUBFORMULApi;,FORWARDED-TO[ROOTpq,X]]] 
else  SUBFORMULApj:,RATORpq[ROOTpq]]) 

OPERANDpq  ^ 

( if  FORWARDED-P  [ROOT  pq  ,X] 

then  OPERAND[SUBFORMULApC.FORWARDED-TO[ROOTpq,X]]] 
else  SUBFORMULA  pc, RAND  pi:][ROOTpq]]) 

Observe  that  RATORpq[ROOTpq]  (RANDpq[ROOTpq])  is  the  result  of  applying  the 
function  RATORpq  (RANDpC])  to  the  vertex  specified  by  ROOTpq. 

It  is  hoped  that  no  confusion  will  arise  due  to  the  author’s  overloading  of  the  predicates: 
COMBINATION-P  and  ATOM-P,  and  the  functions:  OPERATOR  and  OPERAND.  It 
should  always  be  clear  from  the  context  which  calculus,  and  therefore  which  predicate 
(or  function),  is  being  referenced. 
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Definition  2.13:  Let  X  be  a  combination.  Let  X'  be  the  subformula  of  X  rooted  at  v. 

If  there  is  more  than  one  path  from  ROOTpC]  to  v  in  X,  then  X'  is  a  shared  sitbfor- 
mula  of^  {SHARED-P\X!  ,X]). 

Definition  2.14:  An  SKJ-G-wff  X  contains  a  cycle  if  there  is  a  path  (having  length 
greater  than  0)  from  an  accessible  vertex  v  to  itself. 

Definition  2.15:  If  an  SKI-G-wff  X  does  not  contain  any  cycles,  then  applying  the  func¬ 
tion  GRAPH-TO-STRING  to  X  yields  an  SKI-wff  (called  the  linear  transform  ofX). 
GRAPH-TO-STRINGpq  ^ 

{let  root  be  ROOTpC]  in 
( :/ FORWARDED-P  [root,X] 

then  GRAPH-TO-STRING[SaBFORMULApC,FORW.ARDED-TO[root,X]]] 
e/^ej/ATOM-Ppq 
then  ATOMp^[root] 
else  ;;  X  is  a  combination 

(GRAPH-TO-STRING  [OPERATORpC]]  GRAPH-TO-STRING  [OPERAND  pC]])))i 
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S  I  K  (S  K)  is  the  Linear  Transform  of  the  Above  SKI-G-wff 

Figure  2.7 

Note  that  an  SKI-G-wff’s  garbage  is  not  a  factor  in  this  transformation.  Also,  forward¬ 
ing  vertices  and  their  arcs  are  used  only  as  “indirection  pointers”  by  GRAPH-TO- 
STRING.  Any  shared  subformula  in  the  SKI-G-wff  is  transformed  into  multiple 
occurrences  of  the  subformula  in  the  SKI-wff. 

Definition  2.18:  Let  X  and  Y  be  acyclic  SKI-G-wffs.  X  is  synonymous  with  Y  iff 
{SYNONYMOUS-P[K.,Y]l  where 
SYNONYMOUS-P[X,Y] 

GRAPH-TO-STRING  pC]  =  GRAPH-TO-STRING  [Y] 


*  On  the  confusing  syntax  —  the  two  preceding  right  parentheses  are  part  of  the  syntax  of  the 
definition,  while  the  left  and  right  parentheses  enclosing  the  expressions  GRAPH-TO- 
STRING[OPERATOR[X]]  and  GRAPH-TO-STRlNG[OPERANDpC]]  are  part  of  the  result 
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Theorem  2.1:  Any  acyclic  SKI-G-wff  may  be  COMPACTed  and  then  CLEANed  to  pro¬ 
duce  a  clean  compact  synonymous  SKI-G-wff.  The  proof  follows  directly  from  the 
definitions  of  the  functions  CLEAN,  COMPACT,  and  GRAPH-TO-STRING. 

Definition  2.17:  Let  a  be  a  functor  (which  is  an  SKI-wff).  The  atomic  graphical 
transform  of  a.  is  ATOMIC-GRAPH[a.]  where: 

ATOMIC-GRAPH  [a]  ^ 

(let  nv  be  a  new  vertex  in 
<{nv},{},{},{},{<nv,a>},nv>) 

Definition  2.18;  Let  X  and  Y  be  SKI-G-wffs.  X  and  Y  are  compatible  if 
COMPATIBLE-PpC.Y]  where; 

COMPATIBLE-PpC,Y] 

(or  vspq  n  VS[Y]  =  0 
X  is  a  subformula  of  Y 
Y  is  a  subformula  of  X) 

Definition  2.19;  Let  X  and  Y  be  compatible  SKI-G-wffs.  The  combination  ofX.  and  Y 
is  COMBINElX,Y]  where: 

COMBINE  pc, Y]  ^ 

(let  root  be  a  new  vertex  in 
<VSpq  u  VS[Y]  u  {root}, 

RATORpq  U  RATORfY]  U  {<root,ROOTpC]>}, 

RANDpq  U  RAND[Y]  U  {<root,ROOT[Y]>}, 

FWDpq  U  FWD[Y], 

ATOM[X]  U  ATOMfY], 

root  > ) 

Definition  2.20:  Let  X  be  an  SKI-wff.  The  graphical  transform  ofX  is  the  SKI-G-wff 
STRING-TO-GRAPH\^  where 
STRING-TO-GRAPHpq 

(i/ATOM-Ppq 
then  ATOMIC-GRAPHpq 
else  ;;  X  is  a  combination 

(let  opr  be  STRING-TO-GRAPH[OPERATORpq]  & 
opd  be  STRING-TO- GRAPH  [OPERAND  pC]]  in 
;;  opr  and  opd  share  no  vertices,  so  they  are  compatible 
COMBINE[opr,opd])) 

Incompatible  SKI-G-wffs  are  not  COMBINEd  as  the  resulting  graph  may  not  be  an  SKI- 
G-wff.  This  is  so  because  the  definition  of  SKI-G-wff  does  not  prevent  two  SKI-G-wffs 
from  having  the  same  vertex  set  and  inconsistent  arc  sets  at  the  same  time. 

For  any  two  composable  functions  F  and  G,  FoG  represents  their  composition.  For 
any  function  F  capable  of  being  composed  with  itself,  F"  is  the  function  created  by  com¬ 
posing  F  with  itself  n  times.  That  is: 

F“  =  F  o F  o ...  o F, 

where  there  are  n  Fs  to  the  right  of  the  equal  sign.  F°  is  the  identity  function. 
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It  can  be  shown  that  the  graphical  transform  of  an  SKI-wff  is  a  clean  compact  SKI-G-wfF 
without  shared  subformulas  It  can  also  be  shown  that,  given  an  SlCI-wff  X  and  its 
graphical  transform  Y,  the  linear  transform  of  Y  is  X.  That  is  to  say,  GRAPH-TO- 
STRING o STRING-TO-GRAPH  is  the  identity  function  on  SKI-wffs.  It  is  not  the  case, 
however,  that  STRING-TO-GRAPH  o GRAPH-TO-STRING  is  the  identity  function  on 
SKI-G-wffs.  Applied  to  a  clean  compact  SKI-G-wff  Y  having  no  cycles  and  no 
confluences  (no  shared  subformulasj,  however,  an  SKI-G-wff  Y'  isomorphic  to  Y  is  pro¬ 
duced.  The  only  difference  between  Y  and  Y'  (their  graphs  will  appear  identical  when 
displayed)  is  their  vertex  sets.  .As  the  functions  .-kTOMIC-GR.APH  and  COMBINE  (the 
functions  STRING-TO-GR,APH  is  defined  in  t'^rms  of)  always  use  new  vertices,  the  ver¬ 
tex  sets  will  be  necessarily  disjoint 

Definition  2.21:  Let  X  be  an  SKI-G-wff  The  initial  atom  ofX.  is  {[NITIAL-ATOM\X]) 
where: 

INITIAL-ATOMpq  ^ 

{let  root  be  ROOTpC]  in 
( if  FORWARDED-P  [root  ,X] 

then  INITIAL- ATOM[SUBFORMULApC,FOR\VARDED-TO[root,X]]] 
e/sci/ATOM-Ppq 
then  ATOM[root] 
else  ;;  X  is  a  combination 
INITIAL-ATOM[OPERATORpq])) 

Definition  2.22:  Let  X  be  an  SKI-G-wff.  The  number  of  arguments  o/X  is  [NUMBER- 
OF-ARGS^]  where: 

NUMBER-OF-ARGS[X]  ^ 

[let  root  be  ROOTpC]  in 
(i/ forwarded- P  [root  ,X] 

then  NUMBER-OF-ARGS[SUBFORMULApi:.FORWARDED-TO[root,X]]] 
e/sei/ATOM-Ppq 
then  0 

else  ;;  X  is  a  combination 

(+  1  NUMBER-OF-ARGS[OPERATORpq]))) 

Definition  2.23:  Let  X  be  an  SKI-G-wff  If  1  <n<Nl.’MBER-OF-ARGSpq,  then  the 
nth  argument  ofX.  is  Ai?G[n,X]  where: 

ARG[n,X]  ^ 

{let  numargs  be  NUMBER-OF-ARGS[X]  in 
OPERAND  o  OPERATOR"“'^^^*=-"pq) 


2.1.2.  Reduction 

The  “immediately  reducible  to”  relation  of  the  SKI-G-calculus  (SKl-G-imr)  mirrors  the 
SKI-normal-imr  relation  on  SKI-wffs  presented  m  the  preceding  chapter  That  is  to  say 
reduction  in  the  SKI-G-calculiis  proceeds  by  contracting  the  graphical  redex  correspond¬ 
ing  to  the  SKI-calculus’  leftmost  SKI-redex.  Thus,  like  the  calculus  characterized  by  the 
set  of  wffs  SKI-wff  and  “immediately  reducible  to”  relation  SKI-normal-imr,  the  SKI-G- 
calculus  is  deterministic. 


Some  preliminary  concepts  are  presented  prior  to  the  definition  of  SKI-G-imr 


Definition  2.24:  Let  X  be  a  combination  whose  root  is  not  forwarded  Let  Y  be  an 
SKI-G-wff  compatible  with  (but  different  from)  X.  The  SKI-G-wff  which  results  from 
forwarding  the  root  of  X  to  the  root  of  Y  is  FOR  \yARD-COMB\X,Y]  where: 
FORWARD-COMB  pc, Y]  ^ 

{let  rootx  be  ROOTpC]  in 
{let  rtrx  be  RATORpC] [rootx]  & 
rndx  be  RAND [!^ [rootx]  m 

<vspq  U  VS[Y], 

RATORpC]  U  RATORfY]  -  {  <  rootx, rtrx  >  } . 

RANDpq  u  RAND[Y]  -  {  <  rootx, rndx>  }. 

FWDpq  U  FWD[Y]  u  { <  rootx,ROOT[Y]  >  ), 

ATOMfX]  U  ATOM[Y], 
rootx  >)) 

A  note  on  the  restriction,  in  the  previous  definition,  that  Y  must  be  different  from  X:  Y 
cannot  be  X  nor  can  Y’s  root  be  forwarded  (via  one  or  more  arcs)  to  X’s  root.  Forward¬ 
ing  X  to  such  a  wff  would  create  a  graph  which  is  not  an  SKl-G-wff. 

The  reason  for  merging  only  compatible  wffs  is  the  same  as  that  for  COMBINing  only 
compatible  wffs  —  i.e.  the  graph  that  results  from  merging  incompatible  wffs  may  not  be 
a  wff  at  all.  2 

Note  that  combination  forwarding  makes  garbage  out  of  vertices  which  were  previously 
accessible  only  from  rtrx  or  rndx. 


Figure  2.8 


^  In  the  implementation,  ail  wfTs  are  compatible  Therefore  there  is  no  need  to  check  for  compa- 
tibility  before  performing  a  forwarding  operation  or  before  CONIBIXing  two  wffs 
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Definition  2.25:  Let  X  be  an  SKI-G-wff.  X  is  an  SKI-G-S  redex  if  SKI-G-S-REDEX- 
PpC]  where: 

SKI-G-S- REDEX-Ppq  ^ 

(and  (not  FORWARDED-P[ROOTpq,X]) 

INITIAI^ATOMpq  =  S 
NUMBER-OF-ARGSpq  =  3) 

Definition  2.26:  Let  X  be  an  SKI-G-S  redex.  The  SKI-G-wff  Y  is  the  SKI-G-S  reduc- 
tum  ofX.  if  SKI-G-S-REDUCTUMpC\  =  Y  (X  SKI-G-S-imr  Y)  where; 
SKI-G-S-REDUCTUMpq  ^ 

(let  root  be  ROOTpC]  Sc 

rf  be  ROOT[ARG[l.X]]  & 
rg  be  ROOT[ARG[2X]]  & 
rx  be  ROOT[ARG[3X]]  & 

nvj  be  a  new  vertex  & 
nv2  be  a  new  vertex  in 
<VSpC]  u  {nvj.nvj}, 

RATORpCjKVSp^-lroot})  U  {  <root,nvi>  ,<nvj,rf  >,  <nv2,rg>  }, 
RANDpq|(VSpq-{  root})  U  {  <root,nv.i> .  <  nvi,rx> , < nv->,rx>  }, 

FWDpq, 

ATOM[X], 

root>) 
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An  Example  of  SKI-G-S  Reduction 

Figure  2.9 

The  figure  above  demands  some  explanation.  The  vertices  labeled  nj  and  n2  denote  the 
new  vertices  present  in  the  reductum.  The  labeled  triangles  in  the  above  figure  (and  the 
figures  to  follow)  represent  whole  SKI-G-wffs.  This  representation  is  a  little  bit  deceiv¬ 
ing.  These  wffs  may  contain  arcs  pointing  at  the  other  vertices  —  e  g.  the  triangle 
labeled  x  may  contain  arcs  pointing  at  vertices  in  the  wff  represented  by  the  triangle 
labeled  g  (even  though  no  such  arcs  appear  in  the  representation).  Thus,  some  of  the 
vertices  which  appear  from  the  figure  to  be  inaccessible  from  the  root  may,  in  fact,  be 
accessible. 
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Definition  2.27:  Let  X  be  an  SKI-G-wff.  X  is  an  SKI-G-K  redex  if  SKI-G-K-REDEX- 
PpC]  where: 

SKI-G-K-REDEX-Ppq  ^ 

[and  {not  FORWARDED-P[ROOTpq,X]) 

INITIAL-ATOMpq  =  K 
NUMBER-OF-ARGSpq  =  2) 


Definition  2.28:  Let  X  be  an  SKI-G-K  redex.  The  SKI-G-wff  Y  is  the  SKI-G-K  reduc- 
tum  ofX  if  SKI-G-K-REDUCTUM\^  =  Y  CX  SKI-G-K-imr  Y)  where; 
SKI-G-K-REDUCTUMpq  ^ 

FOR  WARD-COMB  pc,  ARG  [1  ;X]] 


The  last  two  definitions  are  good  examples  of  the  close  relationship  between  the 
definitions  of  concepts  in  this  formal  calculus  and  the  functions  which  implement  them. 
These  definitions  can  be  (almost  trivially)  realized  in  most  programming  languages. 


Note  that  in  the  definition  of  SKI-G-K-REDL  CTUM,  the  SKI-G-K  redex  is  forwarded  to 
its  first  argument.  There  is  a  subtle  reason  for  this.  One  might  think  that  the  use  of 
the  forwarding  pointer  could  be  obviated  by  simply  replacing  the  R.\TOR  and  RAND 
pointers  of  the  redex  with  the  RATOR  and  RAND  pointers  of  the  first  argument.  How¬ 
ever,  if  this  is  done  and  if  the  first  argument  is  itself  a  redex,  this  replacement  would 
create  a  duplicate  redex.  Forming  duplicate  redexes  violates  the  property  of  full  laziness 
—  that  states  that  every  expression  is  reduced  at  most  once. 
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An  Example  of  Proper  SKI-G-K  Reduction 
Figure  2.10 
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An  Example  of  Improper  SKI-G-K  Reduction 
Figure  2.11 

Definition  2.29:  Let  X  be  an  SKI-G-wff.  X  is  an  SKI-G-I  redex  if  SKI-G-I-REDEX- 
PpC]  where: 

SKI-G-I-REDEX-Ppq  2^ 

[and  (not  FORWARDED-P[ROOTpq,X]) 

INITIAL-ATOMpq  =  I 
NUMBER-OF-ARGSpq  =  1) 

Definition  2.30:  Let  X  be  an  SKI-G-I  redex.  The  SKI-G-wff  Y  is  the  SKI-G-I  reductum 
ofX  if  SKI-G-I-REDUCTUM^  =  Y,  (X  SKI-G-I-imr  Y)  where: 
SKI-G-I-REDUCTUMpq 

FORWARD.COMB[X,ARG[lXl] 
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Of  course,  the  relations,  expressed  linearly,  are  subject  to  the  same  problems  as  are 
linear  representations  of  SKI-G-wffs; 

•  Shared  subformulas  appear  as  duplicate  subformulas  (e.g.  in  the  S  reduction  rule,  the 
wffs  denoted  by  Z  are  actually  the  same  wff) 

•  Forwarding  arcs  are  invisible  (e.g.  in  the  K  and  I  reduction  rules,  the  root  of  the  wfif 
denoted  by  X  is  a  forwarding  vertex) 

These  relations,  like  their  linear  counterparts  in  the  SKI-calculus,  are  also  often  referred 
to  as  substantive  reduction  rules,  as  each  specifies  a  redex-reductum  pair. 

Definition  2.31:  Each  functor  has  an  arity  determined  by  its  reduction  rule.  The  arity 
of  a  functor  f  having  reduction  rule:  f  Xj  •  ■  X„  — ►  Z  is  n  .  S,  therefore, 

has  arity  3,  K  has  arity  2,  and  I  has  arity  1. 

In  the  LNF-calculus,  some  functors  are  characterized  by  more  than  one  reduction  rule. 
These  functors’  rules,  however,  always  require  the  same  number  of  arguments.  Thus 
such  a  functor’s  arity  may  be  determined  by  examining  any  one  of  its  rules. 

Hereafter,  for  conciseness  (in  contexts  in  which  no  confusion  will  arise)  the  “SKI-G-” 
prefix  may  be  dropped  from  such  identifiers  as:  SKI-G-wff,  SKI-G-S-REDEX-P,  SKI-G- 
K-imr,  etc. 

Definition  2.32:  Let  X  be  an  SKI-G-wff  X  is  an  SKI-G  redex  iff  SKI-G-REDEX-P^^ 
where 

SKI-G- REDEX-Ppq  ^ 

(or  S-REDEX-Ppq  K-REDEX-Ppq  I-REDEX-Ppq) 

Definition  2.33:  Let  X  be  an  SKI-G-wff.  X  contains  an  initial  redex  iff 
(or  SKI-G- REDEX-Ppq 

OPERATORpq  contains  an  initial  redex) 

Definition  2.34:  Let  X  be  an  SKI-G-wff.  X  is  in  SKI-G-lazy-normal  form  iff  SKI-G- 
LAZY-NF-P[X\  where 
SKI-G-LAZY-NF-Ppq  ^ 

X  does  not  contain  an  initial  redex 

The  definition  of  SKI-G-imr  (next)  is  a  bit  long  and  complicated.  It  is  complicated  by  the 
presence  of  forwarding  pointers  and  the  fact  that,  because  of  shared  subformulas  and 
cycles  in  the  wff,  redex  contractions  can  be  a  bit  more  difficult  to  formalize  than  in  a 
string  oriented  calculus.  However,  the  informal  description  of  the  relation  is  quite  simple 
to  comprehend.  Informally,  an  SW-G-wff  X  reduces  immediately  to  Y  iff  either 
<X,Y>  is  a  redex-reductum  pair  or  X  contains  a  leftmost  redex  and  Y  is  the  wff  which 
results  from  contracting  this  redex. 
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Definition  2.35;  Given  SKI-G-wffs  X  and  Y.  X  immediately  reduces  io  Y  iff  X  SKI-G- 
imr  Y  where 
X  SKI-G-imr  Y  ^ 

{let  xroot  be  ROOTpC]  in 
( if  FORWARDED- P  [xroo t  ,X] 
then  {let  yroot  be  ROOT[Y]  in 

{and  FORWARDED-P[yrootY] 
xroot  =  yroot 

(SUBFORMULApC, FOR  WARDED- TO[xroot,X]] 

SKI-G-imr 

SUBFORMULA[Y,FORWARDED-TO[yroot,Y]]))) 
elseif  {not  LAZY-NF-PpC]) 
then  {or  X  S-imr  Y 
X  K-imr  Y 
X  I-imr  Y 

{and  COMBINATION-PpC] 

(there  is  a  Yqpr  €  SKI-G-wff  such  that 
{and  OPERATOR pq  SKI-G-imr  Yqpr 
Y  =  SKI-G-WFF  [Yopr, xroot]))) 
else  ;;  X  does  not  contain  an  initial  redex 
{and  COMBINATION-Ppq 

(there  is  an  i  €  l,...,NUM-ARGSpC] 
and  an  SKI-G-wff  Yarg,  such  that 
{and  ARG[i;Xj  SKI-G-imr  Y^rg, 

Y  =  SKI-G-WFF  [Yarg,. xroot] 
there  isn’t  a  j  €  l,...,i-l  such  that 
ARG[j,X]  is  reducible)))) 


Figure  2.13 

Definition  2.36:  SKI-G-red  is  the  transitive  closure  of  SKTG-imr. 
Definition  2.37:  SKI-G-red*  is  the  reflexive  transitive  closure  of  SIvI-G-imr. 


Definition  2.38:  Let  X  be  an  SKI-G-wfT  5 
FpC]  where 

SKI-aNF-Ppq  ^ 

no  subformula  of  X  is  an  SKI-G-REDEX 


is  in  SKI-G-normal  form  iff  SKI-G-NF- 


Definition  2.39:  Let  X  be  an  SICI-G-wff  which  is  not  in  SKI-G-normal  form.  The  left¬ 
most  redex  ofX.  is  LEFTMOST-REDEX\^  where: 

LEFTMOST-REDEXpq 

(i/REDEX-Ppq 

then  X 

eisci/OPERATORpC]  contains  a  redex 
then  LEFTMOST-REDEX[OPERATORpq] 
else  ;;  OPERANDpC]  contains  a  redex 
LEFTMOST-REDEX[OPERAND  pq]) 
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Note  that  the  SKI-G-calculus  is  deterministic.  For  any  SKI-G-wff  X,  there  b  only  one 
reduction  sequence  starting  at  X.  This  is  true  because  each  reduction  step  involves  con¬ 
tracting  the  wff’s  leftmost  redex,  which  (if  it  exists)  is  unique.  Moreover,  if  X  has  an 
SKI-G-normal  form,  then  it  is  arrived  at  by  first  being  reduced  to  SKI-G-lazy-normal 
form.  Each  argument,  in  turn,  is  then  reduced  to  SKI-G-normal  form. 

The  following  results  show  that  any  SKI-calculus  reduction  sequence^  (and  therefore  any 
X-calculus  reduction  sequence'*  )  can  be  simulated  by  a  reduction  sequence  (often  involv¬ 
ing  fewer  reductions)  in  the  SKI-G-calculus.  These  results  also  demonstrate  that  any 
SKI-G-calculus  reduction  can  be  simulated  in  the  SKI-calculus.  Thus,  the  SKI-G- 
calviulus  is  shown  to  be  equivalent  in  power  to  the  SICI-calculus,  the  X-calculus,  et  al. 

Le.nima  2.1:  Let  SKI-X  be  a  variable-fiee  SKI-wff.  If  SKI-X  SKI-normal-imr  SKI-Y, 
then  there  is  an  SKI-G-Y  €  SKI-G-wff  such  that  STRING-TO-GR.\PH[SKI-X] 
SKJ-G-imr  SKI-G-Y  and  SKI-Y  =  GRAPH-TO-STRING [SKI-G-Y]. 

Proof  Sketch: 

STRING-TO- GRAPH  preserves  redexes.  Thus,  the  leftmost  redex  in  SKI-X,  which 
when  contracted  yields  SKI-Y,  will  have  a  counterpart  in  STRING-TO- 
GR.\PH[SKI-X]  (SKI-G-X)  which  will  also  be  a  leftmost  redex.  Contracting  this 
redex,  yielding  SKI-G-Y,  will  have  no  effect  on  the  rest  of  the  graph  SKI-G-X  as  it 
does  not  contain  any  confluences  or  cycles  Thus,  since  the  redex-reductum  pairs  of 
the  SKT-G-calculus  mirror  the  redex-reductum  pairs  in  the  SKI-calculus,  the  string 
transform  of  SKI-G-Y  will  be  SKI-Y. 

End  Sketch 

The  previous  lemma  demonstrates  that  a  single  reduction  step  in  the  SKI-calculus  can  be 
simulated  by  a  single  reduction  step  in  the  SKI-G-caiculus.  The  next  lemma  states  that 
a  single  reduction  step  in  the  SKI-G-calculus  can  be  simulated  by  one  or  more  reduction 
steps  in  the  SKI-calculus. 


^  with  the  restriction  that  the  initial  SKI-wff  m  the  tequence  does  not  contain  any  variables 
^  with  the  restriction  that  the  initial  X.wff  is  closed 
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Lemma  2.2:  Let  SKI-G-X  be  an  Sia-G-wff.  If  SKI-G-X  SKI-G-imr  SKI-G-Y,  then 
GRAPH-TO-STRING[SKI-G-X]  SKI-red  GRAPH-TO-STRING[SKI-G-Y]. 

Proof  Sketch: 

The  SKI-wff  GRAPH-TO-STRING [SKI-G-X]  (SKI-X)  contains  N  copies  of  each 
subformula  of  SKI-G-X  having  N  distinct  paths  from  SKI-G-X’s  root  to  the  root  of 
the  subformula.  In  particular,  if  there  are  M  distinct  paths  from  SKI-G-X’s  root  to 
the  root  of  the  redex  contracted,  then  the  SIG-wff  SKI-X  contains  M  copies  of  this 
redex.  Each  of  these  M  redexes  must  be  contracted  as  the  SKI-wff  GRAPH-TO- 
STRING  [SKI-G-Y]  (SKI-Y)  will  contain  M  copies  of  the  redex’s  reductum.  The 
SKI-wfifs  SKI-X  and  SKI-Y  will  therefore  stand  in  the  relation  SKI-red  if  these  M 
redexes  are  all  contracted. 

End  Sketch 

The  following  two  conjectures  claim  equivalence  between  the  SKI-calculus  and  the  SKI- 
G-calculus. 

Conjecture  2.1:  Let  SKI-X  be  a  variable-free  SKI-wff.  If  SKI-X  SKI- normal- red 
SKI-Y,  where  SKI-Y  in  SKI-normal  form,  then  there  is  an  SKI-G-Y  €  SKI-G-wff 
in  SKI-G-normal  form  such  that  STRING-TO-GRAPH [SKI-X]  SKI-G-red  SKI-G-Y 
and  SKI-Y  =  GRAPH-TO-STRING  [SKI-G-Y] 

Proof  Sketch: 

The  reduction  sequence  in  the  SKI-G-calculus  would  mirror  the  reduction  sequence  in 
the  SKI-calculus  with  the  following  exception.  In  an  SKI-calculus  reduction  step 
redexes  aje  often  copied  (e.g.  any  redex  in  Z  after  the  step:  SXYZ— *-XZ(Y  Z)). 
On  the  other  hand,  redexes  are  never  duplicated  in  an  SKI-G-calculus  reduction. 
Thus,  the  SKI-G-calculus  reduction  sequence  may  be  shorter  than  the  one  in  the 
SKI-calculus  —  how  much  shorter  depends,  of  course,  on  how  many  redexes  are 
copied  in  the  SKI-calculus  reduction  sequence.  Note  the  requirement  in  the  theorem 
statement  that  the  SKI-reduction  sequence  terminates  in  an  SKI-wff  in  SKI-normal 
form.  Some  reduction  sequences  which  do  not  eliminate  all  redexes  cannot  be  simu¬ 
lated  —  those  which  fail  to  contract  the  redexes  they  copy. 

End  Sketch 

It  has  been  informally  argued  that  any  SKI-normal  reduction  sequence  resulting  in  an 
SKI-wff  in  SKI-normal  form  can  be  simulated  in  the  SKI-G-calcilus.  It  remains  to  show 
that  all  SKI-G-calculus  reductions  can  be  simulated  in  the  SKI-calculus. 
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Conjecture  2.2:  Let  SKI-G-X  be  an  acyclic  SIG-G-wff.  If  SKI-G-X  SKI-G-red  SKI- 
G-Y,  then  GRAPH-TO-STRING[SKI-G-X]  SKI-red  GRAPH-TO-STRING [SKI-G- 

Y]. 

Proof  Sketch: 

The  SKI-calculus  reduction  sequence  which  simulates  the  SKI-G-calculus  reduction 
sequence  will  mirror  the  graph  sequence  except  that  it  may  take  more  steps  (to 
reduce  the  copies  of  the  redexes  it  has  created).  There  need  not  be  a  requirement 
that  the  simulated  sequence  end  in  a  redex-free  graph  as  no  copies  of  redexes  are 
created  by  it. 

End  Sketch 
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2.1.3. 


Since  any  closed  X-wff  can  be  translated  into  an  SKI-G-wff,  reduced,  and  then 
transformed  back,  an  SKI-C  machine  (one  which  produces  SKI-G-wffs  in  SKI-G-normal 
form  from  arbitrary  SKI-G-wffs  it  has  been  provided)  could  be  used  as  the  reduction 
engine  at  the  core  of  a  functional  programming  language  implementation.  This  machine 
(SKI-G-M)  could  be  built  from  a  simpler  machine  (LNF-M)  which  accepts  SKI-G-wffs  as 
input  and  produces  SKI-G-wffs  in  SKI-G-/a2ry-normal  form.  An  informal  definition  of 
SIG-G-M  in  terms  of  LNF-M  follows; 


SKI-G-Mpq  ^ 

{let  a  El  •  •  •  E„  be  LNF-MpC]  in 
aSKI-G-M[Ei]  '  '  '  3KI-G-M[E„]) 

Besides  being  an  elegant  machine  architecture,  it  has  two  properties  which  make  it  an 
efficient  one  as  well.  Firstly,  the  only  redexes  contracted  are  initial  redexes.  These 
redexes  are  easy  to  locate  within  a  wff  as  only  the  “left  spine”  of  the  graph  need  be 
searched.  Secondly,  having  reduced  the  input  wff  to  lazy-normal  form,  the  structure  of 
the  output  wff  is  known  —  that  is,  both  its  initial  atom  and  number  of  arguments  are 
known.  Further  reductions  of  the  wff  only  affect  the  structure  of  the  wfiTs  arguments. 
Thus,  having  reached  lazy-normal  form,  the  initial  atom  may  be  output  and  reduction 
started  on  the  arguments. 


However,  basing  the  implementation  of  a  usable®  functional  programming  (FP)  language 
on  SKI-G-M  (the  architecture  notwithstanding)  is  problematic.  The  two  most  significant 
problems  with  this  approach  are; 


All  of  the  constructs  (both  in  data;  like  numbers  and  lists,  and  in  code:  like  condi- 
t’onal  expressions  and  expressions  with  auxiliary  declarations)  programmers  have 
become  accustomed  to,  and  now  expect  to  find  in  an  FP  language,  must  be 
represented  by  SKI-G-wffs.® 

Translating  complex  (closed)  X-wffs  into  SKI-G-wffs  creates  SKI-G-wffs  of  unaccept¬ 
able  size.  The  translated  SKI-G-wff  grows  exponentially  with  the  number  of  nested 
abstractions  present  in  the  X-wff  ([Turner  1979c]). 


Assuming  that  the  FP  language  to  be  implemented  is  a  “sugared”  version  of  the  X- 
calculus,  the  desugaring  process  must  represent  all  of  the  constructs  of  the  language  as 
X-wffs.  For  example,  natural  numbers  are  data  items  most  programmers  would  expect  to 
find  in  an  FP  language.  These  numbers  must  be  represented  as  X-wffs.  Although  this 
can  be  done,  the  resulting  wffs  are  large  in  size  and  difficult  to  manipulate.  The  arith¬ 
metic  operators  must  be  coded  as  X-wffs  as  well.  Besides  being  complex,  the  desugared 
expressions  (now  X-wffs)  have  lost  something  in  the  process.  One  cannot  distinguish  a 
desugared  numeral  from  a  function  —  the  programmer’s  intention  has  been  lost.  Any 
NUMBER-P  predicate,  for  example,  would  return  TRUE^  when  provided  with  any  X-wff 
taking  the  form  of  a  natural  number  representation,  even  though  that  was  not  its 


^  capable  of  running  more  than  the  customary  set  of  trivial  test  programs,  not  necessarily  a  pro¬ 
duction  quality  system 

*  This  is  not  just  a  problem  with  the  SKI-G-calculus,  of  course  —  all  of  the  other  calculi  previ¬ 
ously  presented  also  suffer  from  this  malady 
’’  a  X-wff  representation  of  TRUE 
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intended  use. 


The  representation  problem  discussed  above,  by  increasing  the  size  and  complexity  of 
the  X-wffs  (which  then  must  be  translated  into  SKI-G-wffs),  makes  the  second  problem 
even  more  significant. 

The  LNF-calculus  is  a  directly  realizable  version  of  the  SKI-G-calculus.  The  LNF- 
calculus,  as  the  reader  will  see,  does  not  possess  either  of  the  problems  which  prevent  the 
SKI-G-calculus  from  being  the  basis  of  an  efficient  programming  system. 


2.2.  The  LNF-calculus 

As  mentioned  several  times,  the  LNF-calculus  is  the  reduction  calculus  which  has  been 
realized  in  Zetai.isp  on  a  Lisp  machine.  This  realization  is  the  reduction  engine  of  the 
FP  language  LNF. 

Detailed  in  this  section  are  the  modifications  made  to  the  SKl-G-calculus  which 
transform  it  into  the  LNF-calculus.  The  resulting  formal  system  is  one  that  has  been 
directly  implemented  resulting  in  a  usable  FP  system  The  implementation,  des.  r  Hed  in 
detail  in  Chapter  3,  mirrors  the  definition  of  the  LNF-calculus  to  follow. 


2.2.1.  Constructions.  Functions,  and  Unknowns 

LNF-wffs,  like  SKI-wffs  and  SKI-G-wffs,  are  either  atoms  or  combinations.  Combina¬ 
tions  axe  composite  wffs,  having  an  operator  and  an  operand,  both  of  which  are  LNF- 

wffs. 

The  definition  of  LNF-wff  is  identical  to  that  of  SKI-G-wff  except  for  the  clause: 

ATOM  is  a  nonempty  partial  function  from  VS  to  {S,K,I}. 

In  the  definition  of  LNF-wff,  this  clause  is  replaced  with: 

ATOM  is  a  nonempty  partial  function  from  VS  to  LNF-FUNCT  U  LNT-CONS. 

Definition  2.40:  LNF-FUNCT  is  the  LNF-calculus  set  of  functors  and  LNF-CONS  is 
the  LNF-calculus'  set  of  constructors  LNF-FUNCT  and  LNF-CONS  partition  the 
set  of  identifiers.  An  identifier  is  in  LNF-Fl.-NCT  iff  it  is  associated  with  a  reduction 
rule.  All  other  identifiers  are  in  LNF-CONS 

Definition  2.41:  Let  X  be  an  LNF-wff.  If  X  has  initial  atom  a  and  a  is  a  constructor, 
then  X  is  a  construction  (CONSTRUCTION-PpCj).  If  X  has  initial  atom  a  and  a  is 
a  functor  and  NUMBER-OF-ARGSpC]  <  ARITY[a],  then  X  is  a  function 
{FUNCTION-P{X]).  If  X  is  neither  a  construction  nor  a  function,  then  it  is  an  unk- 
noum  ( UNKNO  VFV-Ppq). 

Hence,  all  LNF-wffs  are  either  constructions,  funrfions.  or  unknowns 
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Henceforth,  metavariables  denoting  LNF-wffs  will  come  in  different  flavors.  The  follow¬ 
ing  table  summarizes  these  new  conventions:® 


Metavariable 


LNF-wff  Class 


A.B,W,X,Y,Z 

f 

FN 


CN 

cf 

CFN 

RDU 

IMR 

IRU 

b 

ij 

s,t 

n,m,o 

P 


LNF-wff  of  any  type 
Functor 
Function 
Constructor 
Construction 
Constructor  or  functor 
Construction  or  function 
Reducible  unknown 

In  expressions  containing  RDU,  the  wff  s.t.  RDU  LNF-imr  IMR 
Irreducible  unknown 
TRUE  or  FALSE 
Integer 

Floating  point  number 

Floating  point  number  or  integer 

Pair  (a  wff  having  the  linear  representation:  PAIR  X  Y) 


LNF-wff  Metavariables 


Some  examples  of  linear  representations  of  LNF-wffs  using  this  new  notation  follow: 


c  n  IRU 


+  RDU  CFN 


f(c  Z) 


a  construction  whose  first  argument  is  a  number  and 
whose  second  argument  is  an  irreducible  unknown 
a  construction  having  k  arguments 

an  LNF-wff  having  initial  atom  -I-,  a  reducible  unknown  as 
first  argument,  and  a  construction  or  function  as  second 
argument 

an  LNF-wff  having  a  functor  as  initial  atom  and  a  first 
argument  which  is  a  construction  having  one  argument 


In  the  following  sections,  the  new  functors  (and  their  associated  reduction  rules)  will  be 
presented.  The  first  functors  to  be  presented  will  be  those  defined  by  H.B.  Curry  and 
D.A.  Turner. 


2.2.2. 


When  translating  (closed)  X-wffs  to  SKI-G-wffs,  the  most  significant  problem  is  that  the 
size  of  the  SKI-G-wff  grows  exponentially  with  the  number  of  nested  abstractions  in  the 
X-wff.  This  problem  is  diminished  by  introducing  several  new  functors  and  modifying 
Schonfinkel’s  ABSTRACTion  algorithm  to  make  use  of  them. 


H.B.  Curry,  in  [Curry  1958],  introduced  three  new  functors  (B,  C,  and  W)  and  a 
modified  ABSTRACTion  algorithm.  With  this  new  algorithm,  the  translated  X-wffs  did 


*  These  new  metavariables  may  appear  decorated  with  subscripts  as  well 
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not  grow  as  rapidly.  D.A.  Turner  claims,  in  [Turner  1979c],  that  the  growth  rate  is  still 
at  least  quadratic  in  the  number  of  variables  abstracted.  D.A.  Turner,  in  [Turner  1979c] 
and  [Turner  1984],  modified  the  algorithm  further  by  adding  three  more  functors,  similar 
to  S,  B,  and  C,  which  he  called  S',  B' ,  and  C .  Although  in  the  worst  case  the 
translated  X-wffs  still  may  grow  quadratically,  in  practice  most  X-wffs  only  grow  linearly 
when  translated.  Formal  results  concerning  the  growth  of  translated  X-wffs  can  be 
found  in  [Kennaway  1982]  and  [Burton  1982].  Kennaway  proves  that  the  wff  which 
results  from  this  transformation  grows,  in  the  worst  case,  at  a  rate  proportional  to  the 
square  of  the  size  of  the  original  X-wff.  Burton  gives  an  algorithm  which  balances  wffs  — 
unbalanced  wffs  are  the  ones  which  give  rise  to  the  quadratric  growth.  The  resulting 
balanced  wffs  grow,  when  their  variables  are  removed,  at  only  a  linear  rate.  Burton’s 
algorithm,  however,  is  restricted  to  X-wffs  in  which  no  abstractions  contain  global  vari¬ 
ables.  He  claims  that  any  X-wff  may  be  transformed  into  a  X-wff  having  this  property  — 
but  at  the  cost  of  (in  the  worst  case)  quadratic  growth! 

In  order  to  construct  LNF-wffs  from  closed  X-wffs,  one  could  use  a  modified  Schbnfinke! 
algorithm  which  produces  strings  and  then  use  the  STRING-TO-GR.APH  function  to 
produce  LNF-wffs.  Presented  below  are  two  functions  which  together  transform  (closed) 
X-wffs  directly  into  LNF-wffs  by  employing  the  new  functors  defined  by  Curry  and 
Turner. 

Definition  2.42:  Let  X  be  a  X-wff.  The  LNF  transform  ofX.  is  X-rO-Z-NF[X]  wnere: 

X-TO-LNFpq  ^ 

(i/ATOM-Ppq 
then  ATOMIC-GRAPH pq 
(efsei/X  =  (X  V  B) 

then  C.T-ABS[v,X-TO-LNF[B]] 
else  ;;  X  is  a  combination 
{let  OPR  be  X-TO-LNF [OPERATOR pq]  & 

OPD  be  X-TO-LNF  [OPERAND  pq]  in 
;;  OPR  and  OPD  share  no  vertices  so  they  are  compatible 
COMBINE  [OPR,OPD])) 

In  the  following  definition  of  the  Schdnfinkel-Curry-Turner-Scheevel  abstraction  algo¬ 
rithm  (C-T-ABS),  the  shorthand  notation: 

E  of  the  form:  B  X  Y 

replaces  the  rather  cumbersome  phrase  “E  is  a  combination  having  initial  atom  B  and 
two  arguments  —  let  the  first  of  which  be  called  X  and  the  second  Y. 
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Definition  2.43:  For  any  variable  v  and  LNF-wff  B,  there  is  an  LNF-wff  C'-7’-AB5(v,B] 
where 

C.T-ABS[v,B]  ^ 

(«/ (and  ATOM-PpB]  INITIAL-ATOM[B]  =  v) 
then  ATOMIC-GRAPHp] 
elseif  V  does  not  occur  in  B 
then  K-COMBpB] 
else  ;;  B  is  a  combination 
[let  OPR  be  OPERATOR^]  & 

OPD  be  OPERAND  [B]  in 

(i/(andATOM-P[OPD]  INITIAL-ATOM[OPD]  =  v) 
then  {if  v  does  not  occur  in  OPR 
then  OPR 

else  W-COMB[C-T-ABS[v,OPR]]) 
elseif  V  occurs  in  both  OPR  and  OPD 
then  (/ef  ABS-OPR  be  C-T-ABS[v,OPR]  in 
(1/ ABS-OPR  of  the  form:  B  X  Y 

then  S'-COMBpC.Y.C-T-ABS[v,OPD]] 
else  S-COMB[ABS-OPR,C-T-ABS[v,OPD]])) 
elseif -v  occurs  in  OPD  ;;  but  net  in  OPR 
then  (/e<  ABS-OPD  be  C-T-ABS[v,OPD]  in 
(i/ABS-OPD  of  the  form;  B  X  Y 
then  B' -COMB [OPR, X,Y] 
else  B.COMB[OPR,ABS-OPD])) 
else  ;;  v  occurs  in  OPR  but  not  in  OPD 
{let  ABS-OPR  be  C-T.ABS[v,OPR]  in 
(1/ ABS-OPR  of  the  form:  B  X  Y 
then  C'-COMBpC,Y,OPD] 
else  C-COMB [ABS-OPR, OPD]))) 

Some  auxiliary  definitions  of  functions  used  above: 
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Definition  2.44;  Let  X,  Y,  and  Z  be  LNF-wffs. 

/C-COMBpq  ^ 

COMBINE  [ATOMIC-GRAP  H  [K]  ,X] 

W-COMB^X]  ^ 

COMBINE  [ATOMIC-GRAPH  [W]  ,X] 

S'-COMBpC.Y.Z]  — 

COMBINE  [COMBINE  [COMBINE  [ATOMIC-GRAP  H  [S'  ]  XI ,  Y] ,  Z] 

S- COMBOS., Y]  “ 

COMBINE[COMBINE[ATOMIC-GRAPH[S],X],Y] 

B'-COMBpC,Y.Z]  ^ 

COMBINE  [COMBINE  [COMBINE  [ATOMIC-GRAP  H  [B'  ]  ,X] ,  Y] ,  Z] 

B-COMB\X,Y  ^ 

COMBINE  [COMBINE  [ATOMIC-  GRAPH  [B]  X] ,  Y] 

C'-COMBpC,Y,Z]  ^ 

COMBINE  [COMBINE  [COMBINE  [ATOMIC-GRAPH  [C'  ]  ,X] ,  Y] ,  Z] 

C-COMB\X.,Y]  ^ 

COMBINE  [COMBINE  [ATOMIC-  GRAPH  [C]  X] ,  Y] 

It  is  claimed  that  the  wff  C-T-ABS[v,B]  is  equivalent  to  the  wff  ABSTRACT[v,B] 
They  are  equivalent  in  the  sense  that  both  (GRAPH-TO-STRING[C-T-ABS[v,B]]  Z) 
and  (ABSTRACT [v,B]  Z),  for  all  SKI-wffs  Z,  reduce  to  the  same  SKI-wff  W  given  the 
extended  dehnition  of  reduction  below.  An  informal  justification  of  the  claim  follows 
this  definition. 

First,  recall  the  reduction  rules  for  S,  K,  and  I: 

SXYZ-XZ(Y  Z) 

KXY^X 

IX-^X 

Add  to  these  the  reduction  rules  for  W,  B,  C,  S' ,  B' ,  and  C' : 

WXY— XY Y 
BXYZ^X(YZ) 

CXYZ  ^XZ Y 

S'  W  X  Y  Z  ^  W  (X  Z)  (Y  Z) 

B'  W  X  Y  Z  ^  W  (X  (Y  Z)) 

C'  W  X  Y  Z  ^  W  (X  Z)  Y 

Turner,  in  (Turner  1984],  gives  credit  to  Mark  Scheevel  (Burroughs  Corporation)  for 
coming  up  with  the  B'  functor  described  herein.  Turner’s  B',  defined  in  [Turner  1979c], 
was  defined  by  this  reduction  rule:  B'  W  X  Y  Z  -*  W  X  (Y  Z). 
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This  set  of  rules,  together  with  the  SKI-calcuIus’  contextual  reduction  rules,  defines  an 
extended  “immediately  reducible  to”  relation  —  call  it  SKI'-imr.  The  reflexive  transitive 
closure  of  SKI'-imr  is  the  new  reduction  relation. 


To  demonstrate  the  claimed  equivalence,  the  definition  of  C-T-ABS  is  viewed  as  a  collec¬ 
tion  of  rules  of  the  form;  <  condition  >  =»<wff>  The  conditions  are  enumerated 
below.  Following  each  condition  is  the  wff  (GRAPH-TO-STRING[C-T-ABS[v,B]]  Z),  a 
reduction  of  it,  the  wff  (ABSTRACT [v,B]  Z),  and  a  reduction  of  it.  Both  reduction 
sequences  end  in  equivalent  wffs. 

1.  B  =  V  =» 

C-T-ABS  ;  I  Z 
ABSTRACT:  I  Z  V 


2.  V  doesn’t  occur  in  B  =* 

C-T-ABS  :  K  B  Z 
ABSTRACT:  K  B  Z  ^ 

3.  B  is  a  combination,  v  =  B’s  operand,  and  v  doesn’t  occur  in  B’s  operator 

C-T-ABS  :  OPERATOR^]  Z 
ABSTRACT:  S  (K  OPERATOR [B])  I  Z 
—  K  OPERATOR^]  Z  (I  Z) 

^  OPERATOR [B]  (I  Z) 

OPERATOR  [B]  Z  ^ 


4.  B  is  a  combination,  v  =  B’s  operand,  and  v  occurs  in  B’s  operator  =» 
C-T-ABS  :  W  C-T-ABS(v,OPERATOR[B]]  Z 
-*  C-T-ABS[v,OPERATOR[B]]  Z  Z 
ABSTRACT:  S  ABSTRACT[v,OPERATOR[B]]  1  Z 
—  ABSTRACT[v,OPERATOR[B]]  Z  (I  Z) 

^  ABSTRACT [v, OPERATOR [B]]  Z  Z  v 


5.  B  is  a  combination,  v  occurs  in  B’s  operator  and  operand,  v  ^  B’s  operand,  and  C- 
T-ABS[v,OPERATOR[B]]  =  (B  X  Y)  =» 

C-T-ABS  ;  S'  X  Y  C-T-ABS[v, OPERAND [B]]  Z  where 

Y  =  C-T-ABS[v,OPERAND[OPERATOR[B]]] 

—  X  (Y  Z)  (C-T-ABS[v,OPERAND[B]]  Z) 

ABSTRACT:  S  (S  (K  X)  Y')  ABSTRACT[v,OPERAND[B]]  Z  where 

V  =  ABSTRACT[v,OPERAND[OPERATORp]]] 

-  S  (K  X)  Y  Z  (ABSTRACT[v.OPERAND[B]]  Z) 

^  K  X  Z  CY  Z)  (ABSTRACT [v,OPERAND[B]]  Z) 

^  X  (Y  Z)  (ABSTRACT[v.OPERAND[B]]  Z)  n/ 


6.  B  is  a  combination,  v  occurs  m  B’s  operator  and  operand,  v  ^  B’s  operand,  and  C- 
T-ABS[v,OPERATOR[B]]  ^  (B  X  Y)  =» 

C-T-ABS  ;  S  C-T-ABS [v,OPERATOR[B]]  C-T-ABS[v,OPERAND[B]]  Z 
ABSTRACT:  S  ABSTRACT[v,OPERATOR[B]]  ABSTRACT[v,OPERAND[B]]  Z 


^jv'.'TJvvv'TOrjvr*? 


mi 


Page  55 

7.  B  is  a  combination,  v  occurs  in  B’s  operand  but  not  in  B’s  operator,  and  C-T- 
ABS[v, OPERAND pB]]  =  (B  X  Y)  =» 

C-T-ABS  :  B'  OPERATOR[B]  X  Y  Z  where 

Y  =  C-T-ABS[v, OPERAND  [OPERAND [B]]] 

—  OPERATOR [B]  (X  (Y  Z)) 

ABSTRACT:  S  (K  OPERATOR[B])  (S  (K  X)  Y')  Z  where 
Y'  =  ABSTRACT[v,OPERAND[OPERAND[B]]] 

-  K  OPERATORS]  Z  (S  (K  X)  Y'  Z) 

^  OPERATOR [B]  (S  (K  X)  V  Z) 

--  OPERATOR^]  (K  X  Z  fT  Z)) 

OPERATOR^]  (X  (V  Z))  x/ 

8.  B  is  a  combination,  v  occurs  in  B’s  operand  but  not  in  B’s  operator,  and  C-T- 
ABS  [v,  OPERAND  [B]]  9^  (B  X  Y)  =» 

C-T-ABS  ;  B  OPERATORfB]  C-T-ABS{v, OPERAND [B]]  Z 
OPERATOR pB]  (C-T-AJBS[v. OPERAND [B]]  Z) 

ABSTRACT:  S  (K  OPERATOR p])  ABSTRACT[v, OPERAND  [B]]  Z 
K  OPERATORpB]  Z  (ABSTRACT[v,OPERANDpB]]  Z) 

OPERATOR  [B]  (ABSTRACT [v, OPERAND  [B]]  Z)  v' 

9.  B  is  a  combination,  v  occurs  in  B’s  operator  but  not  in  B’s  operand,  anJ  C-T- 
ABS  [v,OPERATOR[B]]  =  (B  X  Y)  =» 

C-T-ABS  :  a  X  Y  OPERANDpB]  Z  where 

Y  =  C-T-ABS[v,OPERAND[OPERATOR[B]]] 

X  (Y  Z)  OPERAND  [B] 

ABSTRACT:  S  (S  (K  X)  Y')  (K  OPERAND[B])  Z  where 

Y  «  ABSTRACT[v,OPERAND[OPERATOR[B]j] 

^  S  (K  X)  V  Z  (K  OPERAND  [B]  Z) 

^  K  X  Z  (Y*  Z)  (K  OPERAND[B]  Z) 

—  X  (Y*  Z)  (K  OPERAND[B]  Z) 

—  X  (Y'  Z)  OPERAND  [B]  V 

10.  B  is  a  combination,  v  occurs  in  B’s  operator  but  not  in  B’s  operand,  and  C-T- 
ABS  [v,OPERATOR(B]]  ^  (B  X  Y)  =» 

C-T-ABS  ;  C  C-T-ABS [v, OPERATORfB]]  OPERANDfB]  Z 
^  C-T-ABS[v,OPERATOR[B]]  Z  OPERANDpB] 

ABSTRACT:  S  ABSTRACT[v, OPERATORfB]]  (K  OPERANDfB]) 
ABSTRACT[v,OPERATOR[B]]  Z  (K  OPERANDfB]  Z) 

^  ABSTRACTfv, OPERATORfB]]  Z  OPERANDfB]  x/ 

Note  that  the  third  clause  in  C-T-ABS’s  definition  is  very  important.  This  clause  actu¬ 
ally  shrinks  the  size  of  the  output  wflf.  This  transformation  step  is  valid  since,  in  the  X- 
calculus,  the  X-wfif  ((X  v  (X  v))  Y)  X-imr  (X  Y)  for  all  X-wffs  X  and  Y  given  that  v  does 
not  occur  free  in  X. 

Some  examples  of  X-wffs  and  their  LNF-wff  equivalents  (via  X-TO-LNF  and  C-T-ABS) 
are  displayed  below.  For  comparison,  the  X-wffs  are  also  transformed  to  LNF-wffs  via 
X-TO-SKI,  ABSTRACT,  and  STRING-TO-GRAPH, 
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The  ABSTRACTed  and  C-T-ABSed  Versions  of  the  X-wff:  X  x  (X  f  (f  (f  (f  x)))) 

Figure  2.16 


The  ABSTRACTed  and  C-T-ABSed  Versions  of  the  X-wff:  X  f  (X  x  (X  y  (f  (+  x  x)  (+  y  y)))) 

Figure  2.18 


The  ABSTRACTed  and  C-T-ABSed  Versions  of  the  X-wff;  X  f  (X  g  (X  x  (-f-  (f  x)  (g  x)))) 

Figure  2.19 

The  graphical  representations  of  the  reduction  rules  for  each  of  these  new  functors  will 
now  be  displayed.  The  author  believes  that  these  pictures,  although  informal,  may 


provide  the  resider  with  a  better  understanding  of  the  workings  of  the  rules  than  do  the 
formal  definitions.  From  the  picture  of  the  reduction  rule  for  the  functor  f,  one  can  infer 
the  definitions  of  the  predicate  LNF-f-REDEX-P  and  the  function  LNF-f-REDUCTUM. 
As  the  author  makes  no  use  of  the  functors’  formal  definitions,  these  definitions  will  not 


ReP^X _ REDOC-TUHV 

The  Rule:  S'  W  X  Y  Z  —  W  (X  Z)  (Y  Z) 
Figure  2.23 


R6t>ex _ REDUCTUKV 

The  Rule:  B'  W  X  Y  Z  ^  W  (X  (Y  Z)) 

Figure  2.24 


g€l>€K _ R£PDCTu»^ 

The  Rule:  C'  W  X  Y  Z  —  W  (X  Z)  Y 
Figure  2.25 


2.2.3. 


Floating  point  numbers  and  integers  are  LNF  constructors.  Presented  in  this  section  are 
the  LNF  functors  which  manipulate  the  atomic  LNF-wffs  having  constructors  of  this 
type  as  initial  atoms. 
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The  numeric  functors  aire:  NUMBERP,  +,  -,  X,  DFV,  IDIV,  REM,  EXP,  <,  >,  ADDl, 
SUBl,  and  ZEROP.  The  formal  reduction  rules  will  be  given  only  for  X,  as  the  other 
functors’  rules  are  almost  identical.  For  these  other  functors,  only  the  linearized  reduc¬ 
tion  rules  will  be  presented. 

Definition  2.45:  Let  X  be  an  LNF-wff.  X  is  an  LNF-X  redex  if  LNF-X-REDEX-P^f^ 
where: 

LNF-X -REDEX-Ppq  ^ 

{and  {not  FORWARDED-P[ROOTpqX]) 

INITIAI^ATOMpq  =  X 
NUMBER-OF-ARGSpq  =  2 

ARG[1,X]  is  an  atom  having  a  number  as  initial  atom 
ARG[2X]  >8  an  atom  having  a  number  as  initial  atom) 

Definition  2.46:  Let  X  be  an  LNF-X  redex.  Y  is  the  LNF-X  reductum  o/X  if  LNF- 
X  -REDUCTUM^  =  Y  pc  LNF-  X -imr  Y)  where: 

LNF-x-REDUCTUMpC]  ^ 

{let  ni  be  INTTIAL-ATOMfARGflX]]  & 
na  be  INmAl^ATOM(ARG[2Xl]  «« 

FORWARD-COMBpC,  ATOMIC-GRAPH  [nx  X  nj]) 

The  linear  representation  of  X ’s  substantive  reduction  rule  is:  X  n  m  — *•  nXm  This 
rule  implies  that  the  functor  X  has  an  arity  of  2. 

In  addition  to  having  a  substantive  reduction  rule,  X  is  also  associated  with  the  follow, 
ing  two  contextual  reduction  rules: 

X  RDU  X  —  X  IMR  X 
X  n  RDU  — »  X  n  IMR 

The  first  contextual  rule  expresses  the  relation:  “in  an  LNF-wff  having  initial  atom  X 
and  two  arguments,  the  first  of  which  is  a  reducible  unknown,  the  unknown  may  be 
replaced  with  the  wff  to  which  it  immediately  reduces”.  The  second  rule  states:  “in  an 
LNF-wff  having  initial  atom  X  and  two  arguments,  the  first  of  which  is  a  number  and 
the  second  of  which  is  a  reducible  unknown,  the  unknown  may  be  replaced  with  the  wff 
to  which  it  immediately  reduces”. 

Thus,  both  of  these  rules  specify  a  context  in  which  other  reductions  may  take  place. 
These  contexts  axe  called  functor  specific  reduction  contexts  or,  simply,  r-contexts.  Most 
of  the  new  functors  are  associated  with  one  or  more  contextual  reduction  rules  specifying 
one  or  more  r-contexts.  The  predicate,  R-CONTEXT-P,  takes  three  arguments:  an 
LNF-wff  X,  a  functor  f,  and  a  positive  integer  i.  R-CONTEXT-P pC,f,i]  is  true  iff  “X  is 
an  f  reduction  context  for  argument  i”. 

Some  examples  of  X  reduction  contexts  follow. 
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A  functor  f,  whose  arguments  must  be  reduced  to  lazy-normal  form  before  its  reduction 
rule  may  be  applied,  is  a  strict  (sometimes  called  totally  strict)  functor.  Some  functors 
require  that  only  some  of  their  arguments  be  reduced  before  being  applied.  These  func¬ 
tors  are  often  referred  to  as  partially  strict  or  strict  in  a  specific  argumentfs).  The  func¬ 
tors  X  and  NUMBER?  are  examples  of  strict  functors.  The  functor  IF,  defined  later,  is 
strict  in  its  first  argument  only. 

The  linearized  reduction  rules  (both  substantive  and  contextual)  for  all  of  the  numeric 
functors  are  displayed  below; 

NUMBER?  NUMBER?  n  —  TRUE 

NUMBER?  CFN  -  FALSE,  if  CFN  not  a  number 
NUMBER?  RDU  —  NUMBER?  IMR 

n  m  —  n-rm 
+  RDU  Y  ^  ^  IMR  Y 
+  n  RDU  — *  -1-  n  IMR 

X  X  n  m  —  n  X  m 

X  RDU  Y  —  X  IMR  Y 
X  n  RDU  — »  X  n  IMR 


-  n  m  — ►  n-m 

.  RDU  Y  ^  -  IMR  Y 

-  n  RDU  — ►  -  n  IMR 

DIV  DIV  n  m  — »  n/m  ,  if 

DIV^  RDU  Y  —  DIV  IMR  Y 
DIV  n  RDU  DIV  n  IMR 

IDIV  IDIV  i  j  -*  integral  quotient  after  i/i  ,  if  i=?^0 
IDIV  RDU  Y  —  IDIV  IMR  Y 
IDIV  i  RDU  ^  IDIV  i  IMR 

REM  REM  n  m  -►  remainder  after  n/m  ,  if  in?^0 
REM  RDU  Y  REM  IMR  Y 
REM  n  RDU  ^  REM  n  IMR 

EXP  EX?  i  j  —  the  integer  ,  if 

EX?  i  j  -+  the  float  r^  ,  if  j<Q 
EXP  s  i  -»  the  float  s* 

EX?  ns—*’  the  float  n* 

EXP  RDU  Y  -  EX?  IMR  Y 
EX?  n  RDU  EX?  n  IMR 


10  Some  rules  take  the  form  LHS  — •  RHS,  if  CONDITION  where  the  CONDITION  is  an  ex¬ 
pression  to  be  evaluated  by  an  outside  agent  Rules  of  this  form  should  be  read  as  saying  if  CON¬ 
DITION,  then  LHS  may  be  replaced  by  RHS” 
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ADDl 


<  n  m  — ►  TRUE,  if  n<m 

<  n  m  — *  FALSE,  if  n>m 

<  RDU  Y  —  <  IMR  Y 

<  n  RDU  ^  <  RDU  IMR 

>  n  m  — ►  TRUE,  if  n>m 

>  n  m  -+  FALSE,  if  n<m 

>  RDU  Y  ^  >  IMR  Y 

>  n  RDU  — ►  >  n  IMR 

ADDl  n  — ♦  n+1 

ADDl  RDU  ^  ADDl  IMR 


SUBl  SUBl  n  ->  n-1 

SUBl  RDU  ^  SUBl  IMR 

ZEROP  ZEROP  n  ^  n=0 

ZEROP  RDU  ZEROP  IMR 

Note  that,  in  all  cases,  only  one  rule,  be  it  substantive  or  contextual,  would  be  applicable 
to  any  LNF-wff,  Note  also  that,  for  each  functor  f,  all  of  Ts  reduction  rules  require  the 
same  number  of  arguments.  There  are  no  LNF  functors  having  multiple  arities. 


2.2.4.  Boolean  Functors 

The  boolean  constructors  are  TRUE  and  FALSE.  The  boolean  functors  are: 
BOOLEANP,  NOT,  OR,  and  AND.  Their  linearized  reduction  rules  are  displayed 
below: 

BOOLEANP  BOOLEANP  b  ^  TRUE 

BOOLEANP  CFN  —  FALSE,  if  CFN  not  a  boolean 
BOOLEANP  RDU  ^  BOOLEANP  IMR 


NOT  NOT  TRUE  - 
NOT  FALSE 
NOT  RDU  - 


►  FALSE 
-  TRUE 
NOT  IMR 


OR  TRUE  Y  -*  TRUE 
OR  FALSE  b  —  b 

OR  FALSE  RDU  —  OR  FALSE  IMR 
OR  RDU  Y  ^  OR  IMR  Y 

AND  FALSE  Y  -  FALSE 
AND  TRUE  b  ^  b 

AND  TRUE  RDU  AND  TRUE  IMR 
AND  RDU  Y  —  AND  IMR  Y 


•  • 

1/ 
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The  formal  definition  of  OR’s  substantive  reduction  rules  will  now  be  presented. 
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Definition  2.47:  Let  X  be  an  LNF-wff.  X  is  an  LNF-OR  redex  if  LNF-OR-REDEX- 
PpC]  where: 

LNF-OR-REDEX-Ppq  ^ 

{and  {not  FOR WARDED-P [ROOT pq.X]) 

INlTIAL-ATOMpq  =  OR 
NUMBER-OF-ARGSpq  =  2 
ATOM-P[ARG[l,X]] 

(or  TRUE  =  INITIAL-ATOM[ARG[i,X]] 

{and  FALSE  =  INITIAL-ATOM[ARG[i;X]] 

ARG[2,X]  is  an  atom  having  a  truthvalue 
as  initial  atom))) 

Definition  2.48:  Let  X  be  an  LNF-OR  redex.  Y  is  the  LNF-OR  reductum  of  X  if 
LNF-OR-REDUCTUMpC\  =  Y  (X  LNF-OR-imr  Y)  where; 

LNF-OR-REDUCTUMpq  ^ 

(i/ INITIAL- ATOM[ARG[i;X]l  =  TRUE 
then  forward-comb  pc,  ARG(1X]] 
else  ;;  INITlAL-ATOM[ARG[lX]]  =  FALSE  and 
;;  INITIAL- ATOM[ARG[2PC]]  a  truthvalue 
FORWARD-COMB  pc, ARG[2,3q]) 

The  functor  OR  is  also  associated  with  two  contextual  reduction  rules.  Some  examples 
of  OR  reduction  contexts  follow. 

Root  root 


NOT  TR0€ 


Two  OR  Reduction  Contexts  for  Argument  1 
Figure  2.29 
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Figure  2.30 


The  realizations  of  the  functors  OR  and  AND  (presented  in  the  next  chapter)  perform 
like  ML’s  OrElse  and  AndThen  boolean  operators.  LISP  implementations  also  provide 
boolean  connectives  whose  arguments  are  evaluated  as  required. 


2.2.5.  Pair  and  List  Oriented  Functors 


Lists  are  data  structures  familiar  to  all  functional  programmers.  Since  lists  are  so  com¬ 
monly  used,  some  functors  have  been  defined  which  manipulate  them.  There  are  two 
constructors  which  are  used  to  make  lists:  [  ]  and  PAIR.  The  constructor  [  ]  is  used  to 
make  empty  (or  null)  lists  and  PAIR  is  used  to  build  pairs.  A  (linearized)  list  is  either: 

the  null  list  [  ],  or 

the  pair  (PAIR  X  L),  where  L  is  also  a  list. 

The  r.  VF-wff  X  is  called  the  head  of  the  list  (PAIR  X  Li.  L  is  called  its  tail.  The  PAIR 
constructor  may,  of  course,  also  be  used  to  pair  other  types  of  LNF-wffs. 
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The  pair  and  list  oriented  functors  are;  HD,  TL,  NULLP,  PAIRP,  NTH,  APPEND, 
MAP,  MEMBER,  COLLECT,  FILTER,  REM-DUPS,  REM-DUPS',  FB,  FB/,  FBT, 
FBT' ,  INTERLEAVE,  FLATMAP,  ENUMERATE,  UP,  DOWN,  and  TURN.  The  util¬ 
ity  of  some  of  the  functors  presented  in  this  section  is  apparent.  For  many  others,  how¬ 
ever,  the  reasons  for  including  them  into  the  calculus  are  not  so  obviousi  The  uses  to 
which  these  functors  are  put,  which  justify  their  inclusion  in  the  calculus,  are  presented 
in  the  next  chapter.  Their  linearized  reduction  rules  are  displayed  below; 

HD  HD  (PAIR  X  Y)  -  X 
HD  RDU  —  HD  IMR 

TL  TL(PAIRXY)-»Y 
TL  RDU  -  TL  IMR 


NULLP  NULLP  ( ]  —  TRUE 

NULLP  CFN  ^  FALSE,  if  CFN:;^[  ] 
NULLP  RDU  —  NULLP  IMR 


PAIRP  PAIRP  (PAIR  X  Y)  ^  TRUE 

PAIRP  CFN  —  FALSE,  if  CFN  not  a  pair 
PAIRP  RDU  ^  PAIRP  IMR 

NTH  NTH  1  (PAIR  X  Y)  -  X 

NTH  i  (PAIR  X  Y)  —  NTH  i-1  Y.  if  i>l 
NTH  RDU  Y  ^  NTH  IMR  Y 
NTH  i  RDU  -*  NTH  i  IMR,  if  i>0 

APPEND  APPEND  [][]  —  [] 

APPEND  ( ]  P  ^  P 

APPEND  (PAIR  X  Y)  Z  ^  PAIR  X  (APPEND  Y  Z) 
APPEND  RDU  Y  -»  APPEND  IMR  Y 

INTERLEAVE  INTERLEAVE  [  ]  P  —  P 
INTERLEAVE  P  [  ]  —  P 
INTERLEAVE  (PAIR  X  Y)  P  ^ 

PAIR  X  (INTERLEAVE  P  Y) 

INTERLEAVE  RDU  Y  ^  INTERLEAVE  IMR  Y 
INTERLEAVE  P  RDU  ^  INTERLEAVE  P  IMR 

FLATMAP  FLATMAP  X  [  ]  -*  ( ] 

FLATMAP  X  (PAIR  Y  Z)  — 

INTERLEAVE  (X  Y)  (FLATMAP  X  Z) 

FLATMAP  X  RDU  FLATMAP  X  IMR 

ENUMERATE  ENUMERATE  X  TURN  [  ]  X 

TURN  TURN  X  [  ]  ^  UP  X  [  ]  [  ] 

TURN  X  (PAIR  Y  Z)  —  UP  (PAIR  Y  X)  [  ]  Z 
TURN  X  RDU  ^  TURN  X  IMR 

UP  UP  [  ]  X  Y  ^  DOWN  X  [  ]  Y 

UP  (PAIR  [  ]  X)  Y  Z  -*  UP  X  Y  Z 
UP  (PAIR  (PAIR  Xi  Xj)  Y)  W  Z  ^ 

PAIR  Xi  (UP  Y  (P.\IR  X2  W)  Z) 

UP  (PAIR  RDU  X)  Y  Z  —  UP  (PAIR  IMR  X)  Y  Z 
UP  RDU  Y  Z  ^  UP  IMR  Y  Z 


DOWN  DOWN  [][][]  —  [] 

DOWN  [  ]  P  ( ]  ^  UP  P  [  ]  ( ] 

DOWN  [  ]  RDU  [  ]  ^  DOWN  [  ]  IMR  [  ] 

DOWN  [  ]  X  (PAIR  [  ]  Y)  —  TURN  X  Y 
DOWN  [  j  X  (PAIR  (PAIR  Yj  Yj)  Z)  ^ 

PAIR  Yi  (TURN  (PAIR  Yj  X)  Z) 

DOWN  [  ]  Y  RDU  DOWN  [  ]  Y  IMR 
DOWN  [  ]  Y  (PAIR  RDU  W) 

DOWN  [  ]  Y  (PAIR  IMR  W) 

DOWN  (PAIR  [  ]  X)  Y  Z  —  DOWN  X  Y  Z 
DOWN  (PAIR  (PAIR  Xj  Xj)  Y)  Z  W  ^ 

PAIR  Xj  (DOWN  Y  (PAIR  Z)  W) 

DOWN  (PAIR  RDU  Y  Z  ^ 

DOWN  (PAIR  IMR  X)  Y  Z 
DOWN  RDU  Y  Z  —  DOWN  IMR  Y  Z 

MAP  MAP  X  []  ^  [] 

MAP  X  (PAIR  Y  Z)  -*  PAIR  (X  Y)  (MAP  X  Z) 

MAP  X  RDU  ^  MAP  X  IMR 

MEMBER  MEMBER  [  ]  X  ^  FALSE 
MEMBER  (PAIR  X  Y)  Z  -* 

IF  (=  X  Z)  TRUE  (MEMBER  Y  Z) 

MEMBER  RDU  Y  —  MEMBER  IMR  Y 

COLLECT  COLLECT  [  ]  X  Y  —  Y 

COLLECT  (PAIR  X  Y)  W  Z  -» 

W  X  (COLLECT  Y  W  Z) 

COLLECT  RDU  Y  Z  —  COLLECT  IMR  Y  Z 

FILTER  FILTER  X  [  ]  ^  [  ] 

FILTER  X  (PAIR  Y  Z)  ^ 

IF  (X  Y)  (PAIR  Y  (FILTER  X  Z))  (FILTER  X  Z) 
FILTER  X  RDU  ^  FILTER  X  IMR 

REM-DUPS  REM-DUPS  X  ^  REM-DUPS'  X  [  ] 

REM-DUPS'  REM-DUPS'  [  ]  X  -  X 

REM-DUPS'  (PAIR  X  Y)  Z  -  IF  (MEMBER  Z  X) 
(REM-DUPS'  Y  Z)  (PAIR  X  (REM-DUPS'  Y  Z)) 
REM-DUPS'  RDU  Y  —  REM-DUPS'  IMR  Y 

FB  FB  n  m  — ►  PAIR  n  (FB'  n-Hm  m),  if 

FB  n  m  — ►  PAIR  n  (PAIR  n  .),  if  m=0 
FB  RDU  Y  -*  FB  IMR  Y 
FB  n  RDU  -  FB  n  IMR 

FB'  FB'  n  m  — *  PAIR  n  (FB'  n-^m  m) 


Two  Examples  of  MAP  Reduction  Contexts  for  Argument  2 

Figure  2.33 


2.2.6.  Miscellaneous  Functors 

The  remaining  LNF  functors  are  presented  in  this  section.  They  are:  Y,  =,  L,  IF,  UNK¬ 
NOWN?,  CONSTRUCTIONP,  FUNCTIONP,  FUNCTOR,  ARITY,  CONSTRUCTOR, 
NUM-.4RGS,  ARC,  ATOMP,  COMBINATION?,  OPERATOR,  OPERAND,  A-S-E,  A- 
S-E',  A-S,  A-S' ,  and  APP-TO-ARGS.  Presented  below  are  their  associated  reduction 
rules. 

It  is  not  expected  that  the  reader  immediately  appreciates  the  usefulness  of  the  functors; 
A-S-E,  A-^E',  A-S,  A-S',  and  APP-TO-ARGS.  Their  existence  in  the  calculus  is 
justified  in  Chapter  3. 

Y  YX-*X(X(X  ...)) 

=  =  cfi  cfj  —  cfi=cf, 

=  CFNj  CFNj  — 

AND  (=  (OPERATOR  CFNi)  (OPERATOR  CFN2)) 

(=  (OPERAND  CFNi)  (OPERAND  CFNj)) 

=  RDU  Y  —  =  IMR  Y 
=  CFN  RDU  —  CFN  IMR 

Note  that  =’s  reduction  rules  permit  comparison  of  functions  as  well  as  constructions. 
Two  functions  (constructions)  are  equal,  the  rules  specify,  if  and  only  if  they  have  the 
same  normal  form.  Thus,  the  functor  =  (when  applied  to  functions)  is  testing  for 
definitional  equality  and  not  extensional  equality  —  i.e.  it’s  testing  to  see  if  two  functions 
are  the  same  algorithm. 


L  L  cf  CFN  TRUE,  if  £ 
L  CFN  cf  ^  FALSE,  if 
L  cfj  cf2  -+ 


L  CFNi  CFNj 

OR  (L  (OPERATOR  CFNj)  (OPERATOR  CFNo)) 

(AND  (=  (OPERATOR  CFNi)  (OPERATOR 
CFNa)) 

(L  (OPERAND  CFNi)  (OPERAND  CFNo))), 
if  CFN,  and  CFN^  are  both  combinations 
L  RDU  Y  ^  L  EvIR  Y 
L  CFN  RDU  L  CFN  IMR 

The  functor  L  imposes  a  total  ordering  on  the  set;  Functions  U  Constructions 

IF  IF  TRUE  X  Y  —  X 
IF  FALSE  X  Y  —  Y 
IF  RDU  X  Y  ^  IF  IMR  X  Y 

UNKNOWNP  UNKNOWNP  CFN  —  FALSE 
UNKNOWNP  mu  TRUE 
UNKNOWNP  RDU  UNKNOWNP  IMR 

FUNCTION?  FUNCTION?  FN  ^  TRUE 
FUNCTION?  CN  FALSE 
FUNCTION?  RDU  FUNCTION?  IMR 

FUNCTOR  FUNCTOR  FN  —  INITIAL-ATOMfFN] 

FUNCTOR  RDU  ^  FUNCTOR  IMR 

CONSTRUCTION?  CONSTRUCTION?  CN  ^  TRUE 

CONSTRUCTION?  FN  —  FALSE 
CONSTRUCTION?  RDU  ^  CONSTRUCTION?  IMR 

CONSTRUCTOR  CONSTRUCTOR  (c  Xi  X„  )  ^  c 

CONSTRUCTOR  RDU  CONSTRUCTOR  IMR 

ARITY  ARITY  FN  — 


ARITY  RDU  ^  ARITY  IMR 

NUM-ARGS  NUM-ARGS  CFN  ^  NUM-ARGS[CFN] 
NUM-ARGS  RDU  ^  NUM-ARGS  IMR 

ARG  ARG  i  CFN  -*  ARG[i.CFN] 

,  if  l<i<NUM-ARGS[CFN] 

ARG  RDU  Y  —  ARG  IMR  Y 
ARG  i  RDU  ARG  i  IMR 


ATOMP  ATOMP  CFN  ^  NUM-ARGS[C: 

ATOMP  RDU  —  ATOMP  IMR 


COMBINATIONP  COMBINATIONP  CFN  ^  NUM- ARCS  [CFN]  >0 
COMBINATIONP  RDU  —  COMBINATIONP  IMR 


OPERATOR  OPERATOR  CFN  ^  OPERATORfCFN] 
OPERATOR  RDU  —  OPERATOR  IMR 


OPERAND  OPERAND  CFN  ^  OPERAND  [CFN] 
OPERAND  RDU  ^  OPERAND  IMR 


A-S-E  A-S-E  c  i  X  Y  (c  Zj  ■  •  ■  Z,- )  —  X 
A-S-E  Cl  iX  Y  (c2  Zi  •  ■  ■  Zy )  —  Y, 
if  <?r 

A-S-E  c  i  X  Y  FN  —  Y 

A-S-E  c  i  X  Y  RDU  —  A-S-E  c  i  X  Y  IMR 


A-S-E'  A-S-E'  c  i  X  Y  (c  Zi  •  •  •  Zi )  ^  X 
A-S-E'  Cl  i  X  Y  (C2  Zi  •  ■  •  Zy  )  —  Y, 
if  c,  Wo  or  i^\ 

A-S-E'  c  i  X  Y  FN  ^  Y 


A-S  A-S  c  i  X  (c  Zi  •  ■  •  Z,- )  —  X  Zi  •  •  •  Z,- 
A-S  c  i  X  RDU  A-S  c  i  X  IMR 


A-S'  A-S'  c  i  X  (c  Zi  •  ■  •  Z,- )  —  X  Zi  •  ■  •  Z,- 


/  PP-TO-ARGS  APP-TO-ARGS  i  X  Y  X  (ARG  1  Y)  ...  (ARG  i  Y) 


Most  of  the  miscellaneous  functors  have  formal  aefinitions  similar  to  those  whose 
definitions  have  already  been  presented.  The  functor  Y,  the  “fixed-point  finding  func¬ 
tor”,  however,  has  a  definition  that  is  a  little  difi'erent  and  therefore  will  be  displayed. 
Y  is  called  the  fixed-point  finding  functor  since  its  characteristic  property  is  that; 

for  all  functions  F,  Y  F  is  a  fixed-point  of  F,  i.e. 

Y  F  =  F  (Y  F).“ 

By  repeatedly  substituting  the  wff  F  (Y  F)  for  occurrences  of  the  wff  Y  F  on  the  right 
hand  side  of  the  equal  sign,  one  gets  the  equation: 


Y  F  =  F  (F  (F  ...)) 

which  looks  like  the  linearized  rule  for  Y.  This  linearized  rule  is  one  which  is  deceptive. 
A  cycle  exists  in  the  reductum  which  cannot  be  displayed  in  this  linear  format.  The  for¬ 
mal  definition  and  a  graphical  picture  of  Y’s  reduction  rule  follow. 


*■  The  functor  Y  plays  an  important  pau't  in  the  implementation  This  role  will  be  discussed  in 
Chapter  3. 
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Definition  2.49:  Let  X  be  an  LNF-wff.  X  is  an  LNF-Y  redex  if  LNF-Y-REDEX-P^ 
where: 

LNF-Y-REDEX-Ppq  ^ 

{and  {not  FORWARDED- P [ROOT pq^q) 

INITIAL-ATOMpq  =  Y 
NXJMBER-OF-ARGSpq  =  1) 

Definition  2.50:  Let  X  be  an  LNF-Y  redex.  Y"  is  the  LNF-Y  reductum  of'X.  if  LNF-Y- 
REDUCTUM\X\  =  Y  (X  LNF-Y-imr  Y)  where: 

LNF-Y-REDUCTUMpq  ^ 

{let  root  be  ROOT[X]  in 

<vspq. 

RATORpq|(VS[X]-{root})  U  {<root,RAND[root]>}, 

RANDpq|(VSpq-{root})  U  {< root, root >}, 

FWDpq, 

ATOM[X], 

root>) 


o 


R6D6X. 
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An  Example  of  LNF  Y  Reduction 

Figure  2.34 

The  LNF-calcuItts’  functors  have  been  presented.  In  Appendix  A,  all  of  the  LNF- 
calculus’  linearized  reduction  rules  are  redisplayed.  They  are  displayed  in  two  groups  — 
first  the  substantive  reduction  rules,  then  the  contextual  reduction  rules. 


2.2.7.  Reduction 

Informally,  an  LNF-wff  X  is  reducible  (there  is  another  LNF-wff  to  which  it  immediately 
reduces)  if  either  X  is  a  redex  or  X  is  a  reducible  reduction  context  (i.e.  X  is  a  context 
which  permits  reduction  of  one  of  its  subformulas  (Y),  and  Y  is  reducible). 

All  redex-reductum  pairs  are  specified  by  the  cadculus’  substantive  reduction  rules.  The 
functor  specific  reduction  contexts  are  specified  by  the  calculus’  contextual  reduction 
rules.  In  addition  to  these  r-contexts,  two  other  reduction  contexts  (which  are  not  func¬ 
tor  specific)  exist.  An  LNF-wff  X  which  is  forwarded  to  the  LNF-wff  Y  is  a  reduction 
context  for  Y.  A  combination  X  having  operator  Y  is  also  a  reduction  context  for  Y 
These  two  reduction  contexts  are  graphically  displayed  below 
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Two  Reduction  Contexts  for  the  LNF-wff  Labeled  Y 
Figure  2.35 

Definition  2.51:  Let  X  be  an  LNF-wff  and  let  v  be  in  VSpC].  The  LNF-wff  described 
in  X  rooted  atv  \s  {LNF-  VFFFpC.v])  where 
LNF-WFF  pc,  v]  ^ 

<VSpq,RATORpq,RANDpC],FWDpC],ATOMpq,v> 

The  formal  definition  of  the  LNF-calculus’  “immediately  reducible  to”  relation  follows. 

Definition  2.52:  Let  X  and  Y  be  LNF-wffs.  X  immediately  reduces  io  Y  iff  X  LNF-imr 
Y  where 

X  LNF-imr  Y  ^ 

{let  xroot  be  ROOTpC]  in 
{if  FORWARDED-Pjxrootpq 
then  {let  yroot  be  ROOTpf]  in 

{and  FORWARDED-P [yroot, Y] 
xroot  =  yroot 

{SUBFORMULA  pc, FORWARDED-TO[xrootX]] 

LNF-imr 

SUBFORMULA[Y,FORWARDED-TO[yroot,Y]]))) 

else 

{or  (there  is  an  LNF  functor  f  s.t, 

{and  LNF-f-REDEX-PpC] 

Y  =  LNF-f-REDUCTUMpq)) 

(there  is  an  LNT  functor  f  and  an  i  s.t 

{and  l<i<NUM-ARGS[X] 

R-CONTEXT-PpC.f,i] 

ARG[i,X]  is  reducible 

Y  =  REDUCED-R-CO.NTEXTpC.i])) 

(there  is  an  LNF-wff  Z  s.t 

(and  OPER.\TORpC]  LNF-imr  Z 

Y  =  LNF-WFF[Z  , xroot ] )  1 )  1 1 
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Definition  2.53:  Let  X  be  a  reducible  reduction  context  tor  argument  i  —  i.e.  there  is 
some  functor  f  such  that  R-CONTEXT-PpC,f,i]  and  ARG[iX]  is  reducible.  Perform¬ 
ing  one  LNF  reduction  on  X  yields  the  LNF-wfi:  RED UCED-R- CONTEXT^, i], 
where; 

REDUCED-R-CONTEXTpC,i]  — 

{let  RARG  be  the  LNF-wff  such  that 

ARG[i;X]  LNF-imr  RARG  in  LNF-WFF [R>»JIG, ROOT pq]) 

Definition  2.54:  LNF-red  is  the  transitive  closure  of  LNF-imr. 

Definition  2.55:  LNF-red*  is  the  reflexive  transitive  closure  of  LNF-imr. 
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An  Example  of  an  L.NF  Reduction  Sequence 

Figure  2.38 

Ncte  that  an  irreducible  L.NF-wff  may  contain  redexes  Irreducible  LNF-wffs  are  t-a.i  • 
be  in  lazy-normal  form  It  may  be  noted  that  all  ''onstructions  and  all  functions  ar** 
lazy-normaJ  form  Constructions  are  in  lazy-normal  form  since  all  reduction  rules  f  r.c 
suDstantive  and  contextual)  require  a  functor  as  initial  atom  Functions  are  in  .sz\- 
normal  form  because,  although  they  have  a  functor  as  initial  atom,  they  dc'  net  riave 
enough  arguments  to  form  either  a  r<*dex  or  a  reduction  context  Thus,  all  reducible 
L.NF  -wffs  must  be  unknowns  Not  all  unknowns  are  reducible,  however  Some  irredu,';- 
ble  unknowns  are  displayed  below 
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Some  Irreducible  U  nknowns 

Figure  2.37 


2.3.  Summary 

Two  deterministic  (and  therefore  ir-.viallv  < 'hurch-R.jaser  i^raph  rienteO  reduction  :i, 
culi,  the  SKI-G-calculus  and  .he  LNT-calcu.us  nave  been  presented  The  SKI  G- :a.c  ..  is 
is  a  formalized  version  of  D  \  Turner  i  normal  .rder  grapn  reduction  machine  !’.■< 
definition  is  similar  in  form  to  C  P  W.adswortn  s  ietinition  of  'he  '-'i-  -air is 
Although  equivalent  in  power  to  the  v-'-aicums  it  nas  been  argued  that  the 
calculus  would  not  do  as  a  model  for  an  mpiementation  of  an  FP  .anguage  The  I  NF 
calculus  was  presented  as  a  calculus  which  would  enjoy  ail  of  the  a<lvaniages  f  '.e 
SKI-G-calculus  (no  variables,  stru'-ture  sharing  In  the  following  -hapter  'he  rea.ir.i' 
of  the  LNF-calculus  in  ZetaLisp  on  .i  l.isp  .m.achi:ie  i.*^  iLscusse.i  ;n  letail 
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langua^"  with  rf.duclion  irmanlir:)  li  n-  -a:!;-  !,  i.  ■  pp'i-.s  i*x;)r'*ssivjns  as  .npuf  and  pr  - 
duces  I  irred ucible  j  expressions  as  .ui.put  r:i>'  i-tinitu.n  'if  irred ijcdiilit v  vanes  frt'm 
language  to  language  In  the  LNF  iangu.igp  an  •■xpr<*ssi«jn  is  irreducible  if  and  inly  if  u, 
13  in  lazy-normal  form 


The  LNF  programming  environment  was  devel,,ped  to  give  the  author  hands  on  '  ex¬ 
perience  with  the  issues  involved  in  implementing  such  a  language  \\’hat  follows  is  a 
description  of  the  implementation 
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3.1 .  SvBtgm  Qrfanigation 

Th**  user  interface  to  the  system  is  a  listen- respond  loop  not  unlike  the  user  interfaces 
present  in  most  Lisp  implementations  The  user  provides  the  system  with  two  kinds  of 
input  '■xpressions  and  directives 

F’r<*sented  with  a  well-formed  L.N'F  expression  E  i  which  is  different  from  an  LNF-wff),  the 
svstem  performs  the  following 

Displav  '  L.ME-of-wff  '  Compile  E  i)) 

rruole  takes  well-formed  L.NF  expressions  as  input  and  produces  LNF-wffs  as  output 
;  \F  if  w'T  ac  epts  LNF-wffs  as  input  iml  prodif'es  LNF-wffs  in  lazy-normal  form  as 
’  .•  av  sQmf'im»‘s  w-  [■iiirijf  with  LNT-'if-wff  outputs  to  the  terminal  the 

:  .  "  l-  I  N'p  ,vff  i  inearizp'i  ‘‘.irmat  A  th'vse  operations  Compile,  L.NT-of-wff, 

i:.  i  '  s;  a.  ..s  1'‘s  rit<>*'l  .11  1ft, ih  n  ‘hi.s  h.iptfr 

•"  f.vf  1  ■  V  ’hf  svv:r,.f:;  ’ii  ‘i.f'-  •'!-  -ivsifni  For  fxampie  there  are  directives 
li.iiiir'-  1'  w  \‘i<'  rvstffti  i  I  \ ['..'•'•ssiims  enable  reduction  monitoring 

'  r.  iii,;  i.l'  -v  •  ii*'  i-^er  •  z'Vf  '1  iiiif-  ■  l.NF  '  xpressions.  start  end  the  recording 

i  ■••■vsi'  ii  n  I  ‘iif  ft'  Ditf'  '  .V  irf  .up  i'  vm  i  m'  iise  device  while  expressions  are 
•  f  ;  I  I  -ivstfm  ;)r'jm|it  ' 


12  ZetaLiap  Repreagntation  of  LNF-wffs 

'-F  w'fs  ir<  'fpresented  in  a  straightforward  way  u.sing  ZetaLisp  symbols,  conses.  and 


\  \’'/mir  L.NF-aff  if  a  onstru  tor  or  a  functor  is  represented  in  the  machine 

’if  /ftal.isp  symb<.)l  having  the  same  name  On  the  property  list  of  the  symbol 
rf-fiit .iig  fach  fiiiiftor  b'''h  thf  functor  s  arity  inn  a  routine  which  is  an  encoding  'Of 
'.'if  '  in'  tors  rfductiOD  rulfisi  are  kept 

\;i  I  NF  wff  '.mhination  X,  having  .per  it.jr  OPR  ,in<l  'tperan-'  OPD  is  represented  in 
’.'i-  •I'achine  by  a  L’ONN  I'ell  thf  if  'which  points  at  the  representation  of  OPR 

oi'!  ’hf  <^'DR  >f  which  p<  lilts  It  the  reprfseiitalion  ,'f  OPD 

\  ( 'ON.'^  cell  'Will  be  'lispiayed  as  i  rft.mglf  divided  .n  half  —  the  left  half  being  the 
'',\R  and  the  right  the  CDR  Arrows  are  used  to  represent  pointers  .As  in  diagrams 
displaying  L.NF-wffs  (see  Chapter  J)  labeled  triangles  will  be  used  to  abbreviate  whole 
L.N'F-wff  representations 


‘  LuVF-of-v»ff  simulates  the  LNF-M  machine  described  m  Chapter  2 
*  The  user  specifies  (via  directives)  how  much  .’■eduction  is  to  be  performed 
^  A  session  with  LNF  has  been  recorded  and  plated  m  .Appendix  D 
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An  LNF-wff  and  Its  Representation 
Figure  3.2 

Recall  from  Chapter  2  that,  in  the  LNF-calculus,  only  combinations  are  ever  forwarded.^ 
Given  the  representation  above,  combination  forwarding  may  be  accomplished  by  simply 
overwriting  the  representation’s  CAR  (with  the  symbol  LNF:IP)  and  CDR  (with  the 
pointer  to  the  wff  to  which  the  combination  is  being  forwarded).  A  representation  of  a 
K  redex-reductum  pair,  illustrating  combination  forwarding,  is  displayed  below. 


An  Illustration  of  Combination  Forwarding 

Figure  3.3 


This  method  of  combination  forwarding  is  a  modified  version  of  the  one  presented  in 
[Turner  1979c].  Turner,  instead  of  marking  the  combination  as  having  been  forwarded, 
overwrote  the  combination’*;  operator  with  the  identity  functor  I  and  the  operand  with 
the  wfif  to  which  the  combination  was  being  forwarded.  LNF’s  implementation  differs 
from  Turner’s  here  because  it  was  felt  that  I  redexes  and  forwarding  vertices  should  be 
distinguishable. 


3.3.  Compiling  LNF  Expressions  to  LNF-wflfs 

LNF-wffs  (even  in  a  linearized  format)  are  not  “user  friendly”.  The  LNF  language, 
defined  below,  attempts  to  satisfy  the  human  need  for  a  higher  level  of  expression.  An 
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LNF  program  is  an  expression  (LNF-exp). 
formed  LNF-exps  into  LNF-wffs. 


The  system  function  Compile  translates  well- 


®  Combinations  are  forwarded  in  the  LNF-caicuius  by  the  (unction  FORWARD-COMB 
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Please  note  that  only  well-formed  L\F-exps  are  translated  No  attempt  has  been  made 
to  implement  input  error  handling  —  when  presented  with  unrecognizable  input  the  sys¬ 
tem  simply  stops.  In  the  discussion  to  follow,  therefore,  it  will  be  assumed  that  user 
input  is  always  well-formed  Although  LNF-exps  are  strings  of  characters,  for  purposes 
of  discussion,  an  LNT-exp  will  be  assumed  to  be  an  entity  which  wears  its  syntactic 
category  on  its  sleeve  and  whose  immediate  constituents  can  be  easily  selected  That  is 
to  say.  an  LNF-exp’s  abstract  syntax  is  what  s  important  here,  not  its  concrete  syntax 

The  set  of  well-formed  LNF  expres.si(.iris  fL.NF-e\p)  tnai  be  partiti<.)ned  into  five  subsets 
They  are: 

•  Simple  expressions  I SCvfPLE-exp  I 

•  Lambda  expressions  ( LA\fBD.-\--  Ap  i 

•  Expressions  having  auxiliary  declarations  'vVITIl- \.l  X- 1  tE( 'L.-e\p  i 

•  List  expressions  (LIST-exp) 

•  Conditional  expressions  (IF-exp  ^  CASE-exp) 

The  transformation  process  which  produces  LNF-wfls  from  l.NF-exps  wu!  u  'x  be 
detailed.  The  discussion  of  the  process  will  be  broken  'ij>  by  expression  type  E  ich  of 
the  following  subsections  takes  one  LNF  expression  .lass  and  shows  how  exprecuons  m 
that  class  are  transformed. 


3.3.1. 


Simple  Expressions  (SIMPLEXexps)  are  just  linearized  LNF-wffs  with  two  exceptions 

The  first  exception  is  that  atomic  SLMPLE^exps  may  be  variables  as  well  as  funct  'rv  an  i 
constructors.  All  variable  occurrences  in  LNF-exps  are  bound  occurrences  Variabc-s  lire 
distinguished  from  constructors  and  functors  t  v  their  first  character  .Vll  variables  begin 
with  the  character  A  variable  is  represented  in  the  machine  by  the  Zetal.isp  svmbol 

having  the  same  name  —  just  like  contructors  and  functors 

The  other  exception  is  that  parenthesized  LNF-exps  also  fall  into  the  class  of  SIMPLE- 
exp.  Parentheses  serve  the  same  purpose  in  L.NF-exps  as  they  did  in  the  SKl-calculus 
and  in  the  linear  representations  of  SKI-CEwlTs  and  LNF-wffs.  i  e  they  are  used  for 
grouping  only 

LNF’s  Compiler  (from  LNF-exps  to  LNF-wffs).  as  mentioned  above,  is  implemented  by  a 
suite  of  functions;  the  topmost  of  which  is  called  Compile  The  (partial)  ZetaLisp 
definition  of  Compile  is 


*  For  those  readers  interested,  a  BNF-like  description  of  LhfF's  concrete  syntax  may  be  found  in 
Appendix  B 


(DEFUN  Uompile  (expi 
(CON’D  (|Atom-p  rxpl  rxpt 

(|Combination-p  expi  U'cimbin**  iCompile  (Operator  "xpi) 

'Compile  'Operaml  expiDi 

( (  Parened-exp-p  expi  '('ompile  K \p- inside- parens  expoi 

,  REST  OF  THE  BRANCHE-  OF  THE  ooNDi  TO  BE  srppiJED 
.  IN  later  SEf'n'IONS  OF  LHIS  CHAPTER 


rile  majority  >[  fiincfums  makirii^  ::(>  tiie  iiiij.lementation  will  rn’t  h^jjlaveij  Mans  f 
'lie  iow  level  fun<'tl''-ns  Sll'di  ts  '  il**  preilir.iles  (■ 'ITl  1*' ■  e  x  p  ■  [,  C.  [n  i,  iri  .tt .  .  n  -  il:  ; 
Pareneil-exp- p  and  'lie  selero,'  'ini','  ti'-  '  ij-e;  it' .r  Operand  arrl  I'.  n p  ir*  ■ 
■vhi'.''  ion  ’  [ir'Vi'le  ni'i'h  insi^'!'  ni  'he  .in  p'lertie  tj  •  at ;  .ri  svill  n  •  j  resen'e; 

'iii'e  ;t.  is  now  Known  fn  w  ''IMPl.l' -exps  ire  re(,reseii'e(i  (ly  'lie  x\>iierii  o  llnstrit.e 
.'I'JW  'he  metre  'ompiex  LNF  exjjs  ire  .mpi.e-i  p  siitfiees  t..  shr-w  tP'W  'hese  tfier  t'.pes 
if  L.UF  exp^  ire  translated  int  '  '■IMI’l  i.-ex;  •- 


13  2.  Lambda  Expressions 

The  LrAMBD.'V-exps  in  LNF  differ  fre)m  itistraetions  :n  'he  x-.-alcnlus  In  the  e-'-aici Ins 
.ilnstractions  take  the  form 

(X  V  X)  where  v  is  a  variable  and  X  ls  a  s-wff 

In  I.NF  h'jwever,  a  LAMBDA-exp  takes  the  form 

X  (BE,  BE^  )  BODYi  where 

each  BE,  Ls  a  bound  expression  and  BODY  an  LNF-exp 
''ome  LA\IBDA-exps 


X  '  ( vec  ’’x  ’’y  j  ( vec  ’w  ’’z  I)  (  vec  ( 'x  ’’w  i  (  -e  ’y  ’’zl) 


X  ;ni  I 


The  two  differences  between  X-.alruiti.s  ibst  r:i>  f  lon.s  .md  L.N’F  L.\NrBD.\-exps  are  (Ij  a 
LA.MBD.A-exp  can  have  more  than  one  formal  [tarameter  while  a  X-calculu.s  abstraction 
has  only  one  and  (2)  each  formal  parameter  .f  a  LAMBDA-exp  can  be  a  bound  expres¬ 
sion  instead  of  being  limited  to  a  bound  variable  as  in  the  case  of  the  abstraction  The 
first  difference  may  be  easily  discharged  as  the  LAMBDA-exp 

(X  (BE,  BE  J  BODY) 

having  n  formal  parameters  is  merely  shorthand  for  the  LA\IBDA-exp 
(X  (BE,)  (...(X  (BE,  )  BODY).  ||, 

which  has  only  one.  Thus,  a  LAMBDA-exp  possessing  two  formal  parameters  is  not 
representing  a  binary  function.  It  represents  a  unary  function  whose  body  is  also  a 
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unary  function  —  i  e  a  second  order  function 

A  bound  expression  (BE  is  either  a  named  variable  'written  ’name),  an  anonymous  vari¬ 
able  (written  as  ’  alone),  a  constructed  bound  expression  ( CONSTRUCTED-BE) ,  which 
Ls  simply  a  construction  whose  arguments  are  BEs  or  a  list  bound  expression  ( LIST-BE) 
which  IS  sugar  for  a  CONSTRUCTED- BE  D  A  Turner,  in  his  excellent  paper:  ‘A  New 
Implemeitation  Technique  for  Applicative  Languages  '  ([Turner  1979c]),  also  extended 
the  notion  of  formal  parameters  from  simple  variables  He  limited  his  bound  expres¬ 
sions,  however,  to  being  what  this  author  is  calling  LIST-BEs  —  LIST-BEs  being  sugar 
for  expressions  of  the  form  P.AIR  X  Y  LNF's  BEs  are  simply  Turner’s  pairs  general¬ 
ized  to  be  arbitrary  constructions 

Whv  have  CONSTRL'CTED-BEs  been  introduced  into  the  language’  A 
<  ONSTRl'CTED-BE,  acting  as  a  formal  parameter  in  a  LAMBDA-exp,  plays  the  part  of 
an  argument  template^  A  compiled  LAiVIBDA-exp  combined  with  (applied  to)  an  argu¬ 
ment  will  be  reducible  iff  the  argument  matches  the  LAMBDA-exp ’s  BE.  An  argument 
A  matches  a  BE  B  iff 

( or  B  13  a  variable  i  anonymous  or  named) 

land  B  IS  a  CONSTRUCTED-BE  having  the  form:  c  BEj  BE„ 

A  has  the  lazv-normai  form  c  A,  A. 


matches  BE, 


and  A„  matches  BE„  )). 


Formal  parameters  have  been  generalized  from  being  only  bound  vau-iables  to  include 
constructed  bound  expressions  (CONSTRUCTED-BEs)  for  two  pragmatic  reasons: 

1  CONSTRUCTED-BEls  obviate  the  need  for  many  user  defined  selector  functions.  As 
an  example,  consider  the  function  which  performs  vector  addition  Using 
CONSTRUCTED-BEs,  the  LAMBDA-exp  is  written: 

X  ((vec  ’x  ’y)  (vec  ’w  ’z))  (vec  (-P  ’x  ’w)  (-o  ’y  ’z)) 

Without  the  use  of  the  CONSTRUCTED-BEs,  the  L.AMBDA-exp  becomes; 

X  (’u  ’v)  (vec  (-1-  (xc  ?u)  (xc  ?v))  (+  (yc  ’u)  (yc  ?v))) 
where  xc  (yc)  is  the  selector  function  which  extracts  the  x  (y)  component  of  a  vector. 

2  A  CONSTRUCTED-BE  ensures  that  its  LAMBDA-exp  is  used  for  arguments  of  the 
kind  the  user  intended  —  i.e  arguments  which  match  the  template.  In  the  above 
example,  the  CONSTRUCTED-BEs  in  the  formal  parameter  list  of  the  first 
L.AAT’DA-exp  guarantee  the  function  is  used  only  with  vectors.  No  such  guarantee 
is  provided  by  the  formal  parameters  of  the  second  LAMBDA-exp. 

An  important  question  remains.  How  is  (BE  to  argument)  matching  performed  after  all 
of  the  variables  have  been  abstracted  away  by  the  compiler’  The  compiler  (the  function 
Compile)  must  produce,  from  a  LAMBDA-exp  having  the  formal  parameter  BE,  an 
LNF-wff  (in  which  there  are  no  variables)  which  is  capable  of  checking  if  the  argument 
to  which  it  is  being  applied  would  have  matched  BE  This  is  accomplished  by  the  gen¬ 
eralized  abstraction  algorithm  Abstract-be,  which  makes  use  of  the  functor:  A-S  (stand¬ 
ing  for  Abstract  Structure),  in  addition  to  the  functors  used  in  the  definition  of  C-T- 

r  Both  anonymous  and  named  variables  also  act  as  templates  —  templates  that  will  match  any 
argument 
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.\BS  (^irry’s  and  Turner’s  abstraction  algorithm  used  in  the  LNF-calculus). 


Tj  OND-branch  in  the  ZetaLisp  definition  of  the  Compile  function  which  deals  with 
I-  V"  3DA-exps  is  as  follows: 

((Lambda-exp-p  exp) 

(Abstract-each-be  (Formals  exp)  (Compile  (Body  exp)))) 


Recall  the  definition  of  X-TO-LNF  (from  Chapter  2)  which  translated  X-wffs  into  LNF- 
wffs.  The  program  section  above  mirrors  the  first  part  of  the  definition  of  X-TO-LNF 
repeated  below 

(./X  =  (X  V  B) 
then  C-T-ABS [v, X-TO-LNF [B]] 


j  The  definition  of  Abstract-each-be; 

I  (DEFUN  Abstract-each-be  (non-empty-be-list  compiled-body) 

I  (LET  ((compiled-be  ;;  BE 

j  (Compile  (Last- be- in- list  non-empty-be-list)))) 

(IF  (Only-one-be-in  non-empty-be-list) 

;;  THEN 

(  '  hstract-be  compiled-be  compiled-body) 

„  ELSE 

(Abstract-each-be 

'  (All- but- last- in  non-empty-be-list) 

I  (Abstract-be  compiled-be  compiled-body))))) 


In  addition  to  being  able  to  abstract  simple  variables,  Abstract-be  must  be  able  to 
abstract  away  anonymous  variables  and  constructed  bound  expressions.  Note  that  in 
the  definition  of  Abstract-each-be  (above)  the  BEs  are  compiled  before  being  passed  as 
arguments  to  Abstract-be.  LIST-BEs  are  transformed  into  CONSTRUCTED-BEs  (hav¬ 
ing  the  form;  (PAIR  X  Y))  by  this  process.  The  ZetaLisp  definitions  of  Abstract-be  and 
its  helper  function  A-S-or-A-S'-comb®  come  next; 


The  functor  A-S'  is  used  when  abstracting  away  variables  introduced  in  CASE-exps 


(DEFUN  Abstract-be 

(be  compiled- body  &optional  (arg-reduced-p  NIL)) 

;;  IF  THIRD  ARG  NOT  PROVIDED  THEN  IT  TAKES  ON  VALUE  NIL 
(COND  ((Anonymous-variable-p  be)  (Combine  ’K  compiled-body)) 
((Named-variable-p  be)  (C-T-abs^  be  compiled-body)) 

(T  ;;  be  IS  a  desugared  CONSTRUCTED-BE  —  i.e. 

a  construction  whose  arguments  are  BEs 
(A-S-or-A-S'  -comb 
aj-g-reduced-p 
(Constructor  be) 

( Number-of-args  be) 

(Abstract-each- be  (Args  be)  compiled-body))))) 

(DEFUN  A-S-or-A-S' -comb  (use-prime-p  c  n  Inf-wff) 

(Combine 

(Combine  (Combine  (IF  use-primc-p  A-S'  A-S^  c)  n) 

Inf-wff)) 

Some  examples  of  L.AMBDA-exps  and  their  SiMPLE-exp  equivalents 

X  (’x)  (^  ’x  ’x) 

W  - 

X  ((pair  '^x  ?y))  (-1-  ?x  ’y) 

A-S  PAIR  2  -f 

X  ([’x-’y])  (-  ’X  ’y) 

A-S  PAIR  2  - 

X  ((vec  'N  ■’y)  (vec  '^w  ’’z))  ( vec  (-  ’x  ’w)  (—  ’y  "’z)) 

A-S  VTC  2 Vc'  (B'  (A-S  VEC  2))  iB'  C  (B'  B  VEC)  -)  -) 

X  (’u  "’v)  (vec  (^  (xc  ^u)  (xc  ’’v))  i—  (yc  '’u )  (vc  '’v))) 

S'  S  (C  (B'  (B'  VEC)  ^  XC)  XC)  (C’lB'  B  *  YC)  YC) 

X  ((tree  '’1  ’’r))  (append  (flatten  ''ll  (flatten  ''r)) 

A-S  TREE  3  (B  K  (C  (B'  B  APPEND  FLATTEN)  FLATl'EN'l) 

X  (0)  1 

A-S  0  0  1 

X  (?x  ’)  ’x 

K 

A  step  by  step  look  at  or  '  of  the  more  complex  sample  transformations  follows.  Start¬ 
ing  with: 

*  ZetaLisp  version  of  the  function  C-T-.\BS  presented  at  the  end  of  Chapter  2 


.V.vN 


.v,v  .V 

M 

‘J-  v  > 


A*! 


’■r.V> 

'•vV' 

* 

\a  ^ 

-.v.v. 


y.yV. 


i'-  >  j.'Vj**  .*•  ••  .V  .N  l"*  .'V  /-  %■  N' -.  N.'  N  %-  N'  ■.* 


B'  (A-S  VEC  2)  (B'  C  (B'  B  VEC)  +  10)  +  20  (VEC  30  40), 


then  to: 


A-S  VEC  2  (B'  C  (B'  B  VEC)  +  10  (+  20))  (VEC  30  40), 


then  to: 


B'  C  (B'  B  VEC)  +  10  {+  20)  30  40, 


then  to: 


C  (B'  B  VEC  (+  10))  (+  20)  30  40, 


then  to: 

B'  B  VEC  (+  10)  30  (+  20)  40 
then  to: 

B  (VEC  (+  10  30))  (+  20)  40 
and  finally  to: 

VEC  (-h  10  30)  (-H  20  40) 

which,  because  it  is  a  construction,  is  in  lazy-normaJ  form. 

The  combination  labeled  “N:”  is  a  newly  created  combination. 

It  was  mentioned  above  that  Turner,  in  [Turner  1979c],  had  allowed  formal  parameters 
to  be  pairs  (and  pairs  of  pairs  etc.)  as  well  as  simple  variables.  His  abstraction  algo¬ 
rithm,  when  it  had  the  task  of  abstracting  a  formal  parameter  of  the  form 
PAIR  HD  TL  from  an  expression  EXP,  produced  a  combination  of  the  form: 

U  abstract [uD, abstract [TL,EXP]] 

where  the  functor  U  (standing  for  Unpair)  was  characterized  by  the  two  rules 

U  Z  (PAIR  X  Y)  ^  Z  X  Y  and 
U  Z  RDU  ^  U  Z  IMR 

Note  that  the  function  yielded  by  Turner's  algorithm  (U  FN)  behaves  identically  to  the 
function  (A-S  PAIR  2  FN)  —  the  function  that  Abstract-be  would  have  produced  in  this 
situation.  It  can  be  seen  that  Turner's  functor  U  is  the  instance  of  the  function  (A- 
S  c  n)  where  c  has  been  instantiated  with  the  constructor  P.\IR  and  n  with  2. 


3.3.3. 


Expressions  having  auxiliary  declarations  come  in  three  flavors:  WHERE-exps, 
WHERE*-exps,  and  WHEREREC-exps.  Each  of  these  three  types  of  expression  is  a 
variable  binding  form  which,  unlike  LAMBDA-exps,  associates  expressions  with  the  vari¬ 
ables  introduced. 


Other  FP  languages  pooeess  equivalent  forms  which  introduce  the  variable  before  its  use. 
These  forms  are  usually  initiated  by  the  keywords:  LET,  LET*,  and  LETREC. 
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J  EXAMPLES,  (of  WHERE.  WHERE*,  and  WHEREREC  expressions', 

(-r  ’x  ’y)  where  ’x  =  3  i  ’'y  =  4 

,  (thnce  double  5)  where 

:  thrice ’f ’x  = ’f  (’f  I  ’f  "xii  1- 

double  ’x  =  X  2  ’x 

(-«-  ’x  ’y)  where  (tree  ""x  ’  ’y)  ==  some-tree 
\  ( X  ’x  ’y)  where*  ’x  =  3  .  ’y  =  |  factorial  ’xi 

’pi  whererec  ’pi  =  [l«’p2]  Jl:  ’p2  =  ['2»  pl'i 


i  A  •  #1 


W-'A-:;? 


(factorial  10)  whererec 
factorial  ’n  =  (if  (zerop  ’nl  then  1 

else  (X  ’n  (factorial  ,. subl  ’n",, 

(app  [1,2,3]  lust)  whererec 
{app  [  ]  ’z  =  ’z  i 
app  [?x«’r]  ’z  =  [’x»(app  ’r  ’z)]} 

The  three  expression  types  differ  from  one  another  by  the  different  scopes  given  to  the 
introduced  variables.  For  example  consider  the  scope  of  the  variables  in  the  bound 
'•xpression  be-i  in  each  of  the  followine  three  expressions  where  exp^V  Cj  e«.  and  e-,  are 
L.N'F-exps  ar.d  bcj,  bco,  and  be3  are  bound  ’‘xpressions: 

exp  WHERE  be,  =  Cj  i'  be_.  —  e>  ic  be3  =  63 
exp  WHERE*  bCf  —  ej  ;  be;  =  eo  ,  be3  =  €3 
exp  WHEREREC  bcj  =  e^  i  be-;  =  e.;  S^  be^  63 

In  the  .hrst  expression,  the  scope  of  the  variables  t''curring  in  be.;  is  exp  :n  .he 

second  their  scope  is  exp  and  63,  and  in  the  third  their  scope  is  exp  c;.  e-,,  and 
Note  the  use  of  semicolons  as  separators  in  the  WHERE*-exp.  Semicolons  have  been 
used  to  suggest  a  sequence.  In  \\TIERE*-exps,  the  scope  of  be^’s  variables  includes 
besides  the  main  expr-ssion,  the  definiens  of  anv  succeeding  declarations  —  thus  me 
ordering  of  the  declarations  is  important  in  WHERE*-exps.  The  ordering  of  the  declara¬ 
tions  in  WHEREI-exps  and  WHEREREC-exps  is  not  important;  hence  the  use  of  amper¬ 
sand  as  a  separator  between  their  declarations.  Function  declarations  like; 

thrice  ?f  ?x  =  ?f  (?f  (?f  ?x)) 
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{app  [ ]  ?z  =  ?z  1 
app  [?x»?r]  ?z  =  [?x»(app  ?r  ?z)]} 

are  transformed  into  declarations  of  the  form:  “^function-name  =  LNF-exp.^‘  Hence  func¬ 
tion  declarations,  even  though  they  differ  in  outward  appearance,  may  be  compiled,  after 
this  transformation,  like  any  other  declaration.  It  will  now  be  shown  how  each  of  the 

The  expreasion  exp  is  called  the  main  expression  in  these  constructs. 

This  transformation  will  be  detailed  below 


•  • 

AV'.'VsN 


’.hree  tvp«  of  expressions  having  auxiliar'  feclarations  is  transformed  into  an  equivalent 
simple  expression 


r. 


3.3.31.  WHERE- ex  ps 

\  ^'-  HKRt-exp  having  onl>  ne  declaration,  is  sugar  for  a  combination  having  an  opera- 
■  .  r  wpich  is  a  L.'V.MBD.A-exp  —  .  e  a  J-redex  The  \MdERE-exp 

exp  WHERE  be  =  e 

1  f.sguised  form  '.d’  the  'omtinalion 

'  be  exp  e  I 

A  A  HERE-exp  having  more  than  one  declaration  also  has  a  SEMPLE-exp  equivalent 
Ahich  IS  a  combination  Recall  that  its  declarations  are  mutually  independent  and  have 
n.v  the  mam  expression  as  their  scope  Therefore,  the  WTiERE^exp 

exp  WHERE  bej  =  ej  &  be^  =  e^  ic  bej  =  e3 

mav  be  seen  as  sugar  for  the  combination 

!  \  (bei)  I  X  (bej)  (X  (bej)  exp')))  ej  e;  es 

U  IS  easy  to  see  that  the  scope  of  each  of  the  be,  s  is  just  the  main  expression  of  the 
VVHERE-exp  exp 

As  a  concrete  example,  consider  the  WHEREXexp 
’x  ’y)  where  ’x  =  3  &  ’y  =  4 
Its  Sl\IPLE-exp  equivalent  is  the  combination 

IX  (■’xi  (X  fy)  (  -  ’x  ’y)))  3  4 
which  compiles  to  the  L.NT-wff 
-  3  4 

.Although  It  appears  that  the  compiler  has  performed  two  5  contractions,  this  is  not  the 
case.  In  fact,  what  the  compiler  (specifically,  the  ZelaLisp  function  C-T-abs)  has  done 
has  been  to  make  use  of  the  equivalence  between  the  LAJvlBD.A-exp:  (X  (?x)  (M  ?x))  and 
the  expression  M,  wpich  holds  when  ’x  does  not  occur  in  M. 


3.3.3.2.  WHERE*-e3cpa 

A  WHERE*-exp  might  be  called  sugarcoated  sugar,  for  it  is  sugar  for  a  telescoped 
WHERE-exp.  For  example,  the  abstract  WHERE*-exp: 

exp  WHERE*  bej  =  ej  ,  be2  =  ej  ;  bes  =  63 

is  syntactic  sugar  for  this  WHERE)-exp; 


((exp  WHERE  bea  =  63)  WHERE  bej  =  *2)  WHERE  bej  =  ej 
which,  in  turn,  is  sugar  for  the  combination: 
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((X  (bei)  ((X  (beo)  ((\  (he  J  exp)  63))  Co))  Ci). 

The  scope  of  beQ  has  been  italicized  to  illustrate  that  its  scope  really  is  exp  and  63  as 
was  claimed.  Note  that  a  WHERE*-exp  having  n  declarations,  when  desugared,  con¬ 
tains  (at  least)  n  /9-redexes.  Note  also  that  a  WHERE*-exp,  having  main  expression  e 
and  a  single  declaration  d,  is  compiled  identically  to  the  WHERE-exp  having  main 
expression  e  and  the  single  declaration  d. 

As  a  concrete  example,  the  WHERE*-exp: 

(-t-  ?x  ?y)  where*  ?x  =  3  ;  ?y  =  (factorial  ?x) 
is  sugar  for  the  WHERE-exp: 

((-f  ?x  ?y)  where  ?y  =  (factorial  ’x))  where  ?x  =  3 
which  is  sugar  for  the  cornl)lnati< in; 

f(X  (N)  ((X  (?y)  (-  -N  W))  (factorial  'N)))  3). 

'Phe  \\’flERE*-exp,  the  W1  lER I'-exp.  and  the  combination  thus  compile  to  the  same 

LNF-wfr: 

S  -  faclcii'ial  3. 


3.3.3.3.  XVHEREREC-exrrs 

'Fill'  '■.icida;  at  iori"  in  a  WHEREREC-cxp  .are  tHUther  sequential  (like  those  in  WHERE*- 
ctps'  nor  muMially  indei^endent  (like  the  ones  m  WHERE-exps),  but  are  mutually  depen- 
ie:  t  i.s  to  say  that  the  scope  of  each  definiendum  includes  all  of  the  definicntia  in 

I  1  :  '  a  itie  main  ‘  x|iression.  .lust  like  \ViIlvRE*-exps  and  WHERE-exps,  however, 

'•‘v  1 11  R EREC'-exps  can  he  desugared  into  sim]de  expressions.  Before  showing  how  to 
.Rsiig.Li  a  WHER! ,REC-exp  havintr  many  declarations,  it  will  b(  sho\'>n  how  to  desugar  a 
\\  (F.RI'IH'A'-'.xp  hro'ing  only  one  declaration.  Consider  the  Wi lERF.REC'-exp: 

exp  WHERERL'AJ  he  --  ebc 

where  ebe  is  an  LNF-exp  containing  some  free  occurrences  of  the  variables  in  be.  The 
follow  ;ng  combination  is  equivalent  to  ebe: 

(X  (be)  ebe)  be. 

Fhis  Combination  also  ha.s  the  proi>erly  th.it  it.s  operator  does  not  contain  any  free 
oecurrenecs  of  the  varinl.des  in  he.  Replacing  ebe  with  ((X  (be)  ebe)  be)  in  be’s  declara¬ 
tion  gives  a  declaration  having  the  form. 

be  F  be. 

where  no  variable  in  be  occurs  free  in  the  function  F.  .\ny  iixed-i'ioint  of  the  function  F 
(having  a  form  which  matches  be)  will  satisfy  tliis  e(|uat ion. Recall  from  Chapter  '2 
that  the  combination  (Y  G)  is  equal  to  (G  (Y  G))  for  all  functions  G.  Thus  (Y  G)  is  a 
fixed-point  of  any  function  G.  Hence  (Y  F)  is  a  fixed-point  of  the  function 

All  fixed-points  of  F  will  be  of  this  form  since,  by  its  definition,  it  is  only  applicable  to  argu¬ 
ments  of  the  desired  form. 


SJ 

'*3 


F  =  X  (be)  ebe. 

Therefore,  the  noncircular  declaration; 
be  =  Y  (X  (be)  ebe) 

is  equivalent  to  the  circular  one  in  the  WHEREREC-exp.  Since  the  declaration  isn’t  cir¬ 
cular,  the  WHEREREC-exp  may  be  desugared  (just  like  a  WHEREXexp)  into  the  combi¬ 
nation: 

(X  (be)  exp)  (Y  (X  (be)  ebe)). 

A  concrete  example  follows.  The  WHEREREC-exp: 

(first  5  ?x)  whererec  ?x  ==  [l,2«’x] 
is  tranformed  first  to: 

(first  5  ?x)  whererec  ?x  =  ((X  (^x)  [l.2»’x])  ’x) 
and  then  to; 

(first  5  ?x)  where  ’x  =  (Y  (X  (‘’xj  [i.2»'\'))) 
and  finally  to: 

(X  (?x)  (first  5  ?x))  (Y  (X  (?x)  [l,2*’x])) 

This  combination  is  then  compiled  to  the  LNF-wff; 

FIRST  5  (Y  (B  (PAIR  1)  (PAIR  2))). 

Another  example,  whose  definiendum  is  a  CONSTRUCTED-BE,  follows: 

?x  whererec  [?x*?y]  =  [[l»?y]«[2*?x]] 
is  transformed  first  to: 

?x  whererec  [?x»?y]  =  (X  ([?x«?y])  [[l*’y]»[2»?x]])  [?x»?y] 
then  to; 

?x  where  [?x*?y]  =  (Y  (X  ([?x»?y])  [[i*’y]»[2*?x]])) 
and  finally  to: 

(X  ([?x.?y])  ?x)  (Y  (X  ([?x.?y])  [[l*?y]-[2.^x]])). 

The  function  Compile  would  now  dictate  that  this  combination  be  compiled  to; 

A-S 

PAIR 

2 

K 

(Y  (A-S  PAIR  2  (B  (C'  PAIR  (PAIR  1))  (PAIR  2)))). 

This  LNF-wff,  however,  has  no  lazy-normal  form!  To  see  this,  recall  the  rules  character¬ 
izing  the  functor  A-S: 

A-SciX(c  Zi--  Z,)-XZi-  Z,. 

A-S  c  i  X  RDU  —  A-S  c  i  X  IMR 

The  functor  A-S’s  second  rule  says  that  A-S’s  fourth  argument  must  be  reduced  before 


the  first  rule  can  be  applied  —  i.e.  any  function  having  the  form  (A-S  c  i  X)  is  strict. 
Hence  to  reduce  the  LNF-wff  produced  by  the  compiler,  one  must  first  reduce  its  fourth 
argument.  Its  fourth  argument  has  the  form:  (Y  G),  where  G  is  also  a  strict  function. 
Since  this  combination  reduces  to  (G  (G  ...)),  it  should  be  clear  that  G  being  strict 
implies  that  this  combination  will  not  have  a  lazy-normal  form.  Therefore,  the  original 
LNF-wff  will  not  have  a  lazy-normal  form. 


To  solve  this  problem  —  that  is,  to  compile  the  WHEREREC-exp  to  an  LNF-wff  which 
has  a  lazy-normal  form  —  the  strict  function: 


A-S  PAIR  2  (B  (C'  PAIR  (PAIR  1))  (PAIR  2)) 


is  replaced  by  an  equivalent  (in  this  context)  nonstrict  function.  The  function  which  is 
used  in  its  place  is: 


APP-TO-ARGS  2  (B  (C'  PAIR  (PAIR  1))  (PAIR  2)). 

Recall  from  Chapter  2  the  reduction  rule  which  characterizes  the  functor  APP-TO- 


ARGS: 


APP-TO-ARGS  i  X  Y  —  X  (ARG  1  Y)  ...  (ARG  i  Y). 

This  rule  implies  that  any  function  of  the  form  (APP-TO-ARGS  i  X)  is  nonstrict  (it 
doesn’t  care  what  form  its  argument  Y  takes)  and,  when  applied  to  an  LNF-wff  having 
the  form  (c  •  Z,- ),  reduces  to  the  same  LNF-wff  to  which  the  combination  (A- 

S  c  i  X  (c  Zi  •  •  •  Z,- ))  reduces.  To  see  this,  return  to  the  sample  LNF-wff  (having  made 
the  function  replacement)  and  view  a  linearized  display  of  its  reduction  to  lazy-normal 
form. 


A-S  PAIR  2  K  (Y  (APP-TO-ARGS  2  (B  (C'  PAIR  (PAIR  1))  (PAIR  2)))) 


red 'ices  to: 


A-S  PAIR  2  K  (APP-TO-ARGS  2  (B  (C'  PAIR  (PAIR  1))  (PAIR  2))  H) 
via  file  Y  rule,  where  H  is  the  cyclic  LNF-wff: 

(APP-TO-ARGS  2  (B  (C'  PAIR  (PAIR  1))  (PAIR  2))  H). 

The  next  .eduction,  using  APP-TO-ARGS’  rule,  yields. 

A-S  P.AIR  2  K  (B  (C'  PAIR  (PAIR  1))  (PAIR  2)  (ARG  1  H)  (ARG  2  H)), 


which  via  the  B  rule  becomes: 


A-S  PAIR  2  K  (C'  PAIR  (PAIR  1)  (PAIR  2  (.\RG  1  H))  (ARG  2  H)), 


which  reduces  via  the  C'  rule  to: 


A-S  PAIR  2  K  (PAIR  (PAIR  1  (ARG  2  H))  (PAIR  2  (ARG  1  H))). 
Finally,  A-S’s  first  rule  may  be  applied.  The  result  is: 

K  (PAIR  1  (ARG  2  H))  (PAIR  2  (ARG  1  H)) 
which  reduces  via  the  rule  for  K  to  the  construction  (a  pair): 

PAIR  1  (ARG  2  H), 
which  is  in  lazy- normal  form. 


Before  continuing  on  with  WHEREREC-exps,  it  might  be  mentioned  that  Turner  in 
[Turner  1979c],  when  presenting  his  compilation  scheme  for  expressions  with  mutually 
dependent  declarations,  made  the  error  of  using  his  strict  functor  U  instead  of  a  non- 
strict  equivalent.  The  functor  he  meant  to  use  ([Turner  1983]),  instead  of  U,  was  the 
nonstrict  functor  U'  characterized  by  the  rule: 

U'  X  Y  ^  X  (HD  Y)  (TL  Y) 

where  HD  and  TL  are  the  selector  functions  which  retrieve  the  head  and  tail  of  a  pair, 
respectively.  This  functor  U'  may  be  viewed  as  APP-TO-ARGS  restricted  to  working 
on  pairs  —  with  HD  and  TL  playing  the  parts  of  the  functions  (ARG  1)  and  (ARG  2). 

Up  to  this  point,  the  WHEREREC-exps  that  have  been  dealt  with  have  contained 
only  one  declaration.  WHEREREC-exps  having  more  than  one  declaration  are  compiled 
by  first  transforming  them  into  an  equivalent  WHEREREC-exp  having  only  one  declara¬ 
tion,  and  then  compiling  this  new  WHEREREC-exp  as  detailed  above.  Consider  the 
WHEREREC-exp  below; 

exp  WHEREREC  bcj  =  Cj  &  be2  =  Sl  be3  = 

having  three  declarations.  The  following  WHEREREC-exp,  having  only  one  declaration, 
is  equivalent  to  it; 

exp  WHEREREC  (OPDS  bei  be,  beg)  =  (OPDS  Cj  e,  63), 

where  OPDS  is  simply  a  constructor.  Since  it  has  just  been  shown  how  to  compile 
WHEREREC-exps  of  this  form,  nothing  else  need  be  said. 

As  a  concrete  example,  consider  the  WHEREREC-exp: 

?pl  whererec  ?pl  =  [l«?p2]  &  ’p2  =  [2»?pl]. 

This  expression  is  transformed  to  the  equivalent  WHEREREC-exp: 

?pl  whererec  (OPDS  ?pl  ?p2)  =  (OPDS  [l*?p2]  [2»'^pl]) 

which  is  equivalent  to: 

?pl  whererec  (OPDS  ?pl  ?p2)  = 

(X  ((OPDS  ?pl  ?p2))  (OPDS  [l»?p2]  [2*?pl]))  (OPDS  ?pl  ’p2) 

which  is  equivalent  to  the  WHEREXexp: 

?pl  where  (OPDS  ?pl  ?p2)  =  Y  (X  ((OPDS  ?pl  ’p2))  (OPDS  [l*’p2]  [2»?pl])). 

This  WHERE-exp  is  just  sugar  for  the  /?-redex: 

(X  ((OPDS  ?pl  ?p2))  ?pl)  (Y  (X  ((OPDS  ?pl  ’p2))  (OPDS  [l»’p2]  [2»?pl]))) 

which  compiles  to  the  LNF-wff, 

A-S 

OPDS 

2 

K 

(Y  (APP-TO-ARGS  2  (B  (C'  OPDS  (PAIR  1))  (PAIR  2)))). 


In  each  of  the  four  FP  languages: 


m 
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SASL  —  St.  Andrews  Static  Language  ([Turner  1979b]  and  [Turner  1979c]), 


KRC  —  Kent  Recursive  Calculator  ([Turner  1981a],  [Turner  1981b],  and 
[Turner  1982]), 


Miranda  —  D.A.  Turner’s  most  recent  effort  ([Turner  1984b]),  and 


ARC  SASL  —  developed  by  Burroughs  Corporation  in  close  collaboration  with 
D.A.  Turner  ([Richards  1984]) 


there  is  only  one  expression  form  having  auxiliary  declarations.  Each  of  these  languages 
has  collapsed  the  WHERE,  WHERE*,  and  WHEREREC  expressions  into  one  expression: 
the  WHERE  expression.  The  compiler  detects  which  definientia  are  dependent  on  which 
other  declarations  and  then  compiles  the  WHERE  expression  either  like  LNF’s 
WHERE-exp,  if  the  declarations  are  mutually  independent,  or  like  LNF’s  WHEREREC- 
exp,  if  any  two  declarations  are  found  to  be  dependent.  Some  examples  of  this  type  of 
WHERE  expression  and  their  LNF  equivalents  follow. 


KRC:  x+y  where  x  =  4*y;  y  ==  2 
LNF:  +  ?x  ?y  where*  ?y  =  2;  ?x  =  X  4  ?y 


KRC:  pi  where  pi  =  l:p2  ;  p2  =  2:pl 

LNF:  ?pl  whererec  ?pl  =  [l*?p2]  &  ?p2  =  [2*?pl] 


.\lthough  many  of  LNF’s  constructs  have  been  borrowed  from  Turner’s  languages,  it  was 
felt  that  Turner’s  WHERE  construct  was  carrying  too  heavy  a  load.  A  reader  of  a  KRC 
program  must  look  inside  each  of  the  declarations  in  order  to  determine  how  the  declara¬ 
tions  interact.  In  LNF,  however,  the  construct’s  keyword  (either  where,  where*,  or 
whererec)  tells  the  reader  whether  the  declarations  are  to  be  interpreted  independently, 
sequentially,  or  mutually  dependently.  For  this  reason,  it  was  decided  to  spread  the 
work  of  Turner’s  WHERE  expression  appropriately  to  the  WHERE,  WHERE*,  and 
WHEREREC  expressions. 


3.3.3.4.  Function  Declarations 


Functions  defined  by  an  equation  or  a  set  of  equations  are  both  natural  to  write  and 
easy  to  read  and  understand.  It  is  assumed  that,  when  a  function  is  defined  by  a  set  of 
equations,  the  equations  are  pairwise  independent  —  i.e.  only  one  equation  is  applicable 
in  any  one  situation.  This  property  may  be  verified  at  compile  time  by  attempting  to 
unify  ([Robinson  1965])  each  pair  of  formal  parameter  lists.  If  a  pair  does  unify,  then 
the  set  of  equations  is  not  pairwise  independent  and  therefore  not  suitable  as  a  definiens 
for  a  deterministic  function.  The  LNF  compiler  performs  this  check  and  issues  a  warn¬ 
ing  that  the  set  of  equations  is  “order  dependent’’  if  it  finds  a  unifiable  pair  of  formal 
parameter  lists. 


An  example  of  an  unacceptable  equation  set: 

{factorial  0  =  1  |  factorial  ?n  =  X  (factorial  (subl  ?n))} 
since  ?n  and  0  unify.  The  following  definition  of  the  list  appending  function: 


wi 


9 


mm 


^  k  •  >  '  k  ■.UV'- 


mi 

^  • 


-  A  a:-* 
V  V 


''  »' 


%  ^  _  v_v: 


{app  [  ]  ?z  =  ?z  I  app  [?x*?r]  ?z  =  [?x»(app  ?r  ?z)]} 
is  acceptable  because  there  is  no  substitution  (unifier)  which  will  unify  [  ]  and  [?x»?r]. 

It  was  claimed  above  that  functions  declared  via  a  single  equation  like: 

thrice  ?f  ?x  =  ’f  (?f  (’f  ’x)) 
or  by  a  set  of  equations  like: 

{app  [  ]  ?z  =  ?z  I  app  [?x»?r]  ’z  =  [?x*(app  ’r  '^z)]} 
could  be  transformed  into  declarations  of  the  form: 

?function-name  =  exp. 

This  transformation  will  now  be  detailed. 

First,  consider  a  function  declared  via  a  single  equation.  These  declarations  take  the 
form: 

ZETALISP-ATOM  be,  be„  =  exp 
An  equation  of  this  form  is  tranformed  into  the  equivalent  simple  declaration: 

?ZETAL1SP-AT0M  =  X  (be,  be„  )  exp.'"* 

For  example,  the  equation: 

thrice  ?f  ?x  =  T  (?f  (?f  ?x)) 
is  transformed  into  the  declaration: 

?thrice  =  X  (?f  ?x)  (’f  (?f  (’f  ’x))) 

As  a  concrete  example,  the  WHERE-exp  containing  two  function  declarations: 

(thrice  double  5)  where 
thrice  T  ’x  =  T  (T  (T  M)  X- 
double  ?x  =  X  2  ’x 

compiles  to  the  LNF-wff 

C'  C  5  (W  (W  B'))  IX  2) 

If  the  function  is  declared  by  a  set  of  eciuations.  then  the  equation  set  is  iratisformed 
into  a  declaration  of  the  form,  '’function-name  —  exp.  where  exp  is  a  LAMBD.\-exp 
having  a  CASE-exp  for  a  body  Consider  as  an  example  the  following  set  of  equations 
defining  the  function  F: 

(F  be,,  bei2  =  body,  | 

F  be2,  be22  =  body2  | 

F  bejj  be32  =  bodyg}. 

Note  that  for  this  set  to  yield  a  deterministic  definition  for  the  function  F,  no  pair  of 

Note  that  '’ZETALISP-.'\TOM  must  be  substituted  for  (free  occurrences  of)  ZETALISP- 
.ATOM  throughout  the  scope  of  the  declaration  This  scope  varies  depending  on  the  type  of  expres¬ 
sion  (WHERE,  WHERE*,  or  WHEREREC)  of  which  the  declaration  is  a  part 
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formal  argument  lists:  (be,  j  be.o).  (be^  i  be^o)-  1^*  ®  unifiable. 

This  equation  set  is  sugar  for  the  single  equation: 

F  Vj  Vo  = 
case  (opds  Vj  V2)  in 
(opds  beji  bei2)  — ♦  bodyi  | 

(opds  be2i  be22)  — *  body2  | 

(opds  beai  be32)  bodya 
endcase 

where  Vj  and  V2  are  two  new  system  generated  variables.  This  single  equation  is  then 
transformed  into  a  simple  declaration  using  the  method  described  above.  The  CASE- 
exp’s  transformation  to  a  SIMPLE-exp  is  detailed  in  an  upcoming  section 

In  certain  situations,  equation  sets  are  transformed  by  the  compiler  into  more  efficiently 
reducible  forms.  In  the  case  where  the  first  parameters  of  the  equations  (bejj,  bcoj,  and 
be3i)  are  found  to  be  pairwise  independent  (not  unifiable),  then  the  equation  set  is 
transformed  to  this  equation: 

Fvi  = 
case  Vj  in 

bcii  —  (X  (beij)  bodyj)  | 
be2i  -►  (X  (be22)  body2)  | 
be3i  -►  (X  (be32)  body3) 
endcase 

which  avoids  the  introduction  of  the  variable  constructor  opds;  both  of  which 

add  to  the  size  of  the  code  and  in  turn  increase  the  number  of  reductions  required  any¬ 
time  the  function  is  used.  The  user  of  the  system  is  therefore  encouraged  to  place  the 
“deciding”  parameter  (if  one  does  exist)  in  the  first  parameter  position.  To  illustrate  the 
difference  that  the  ordering  of  the  formal  parameters  can  make  in  the  compiled  code, 
observe  the  code  produced  for  the  following  two  equation  sets.  Both  sets  define  a  predi¬ 
cate  accepting  a  number  n  and  a  list  1  as  arguments  and  yielding  TRUE  iff  n  =  length  1. 
Their  only  difference  is  that  the  first  predicate  expects  the  number  as  first  argument  and 
the  list  as  second  and  the  seconj  predicate  expects  them  in  reverse  order.  The  first  set: 

{Pi  ?n  [?*?r]  =  Pi  (subl  ?n)  ?r  ( 

Pi  ?n  [  ]  =  zerop  'i’n} 

compiles  to  code  containing  35  system  generated  functors,  and  to  reduce  the  expression: 
Pi  4  [1,2,3]  to  FALSE  takes  79  reduction  steps.  The  second  set. 

(P2  [?»?r]  ?n  =  P2  ?r  (subl  ?n)  | 

P2  [  I  ^n  =  zerop  ’n} 

compiles  to  code  having  only  17  new  functors,  and  to  reduce  the  expression  P2  [1,2,3]  4 
to  FALSE  takes  only  38  reduction  steps. 


3.3.4.  List  Expressions 

List  expressions  (expressions  whose  lazy-normal  forms  are  either  [  ]  or  take  the  shape: 
PAIR  X  Y)  come  in  several  flavors:  (1)  explicit  lists  like: 


rner  introduced  implicit  lists  —  he  calls  them  “ZF  expressions" 

.  He  gave  them  this  name  since  they  are  based  on  Zermelo- 
-  that  is  for  every  set  A  and  predicate  P,  there  is  another  set 
3xactly  those  members  of  A  for  which  P  holds.  The  equation 
written  in  [Halmos  1974]  as: 

ressed  in  LNF  in  two  ways.  The  first  form  is  very  similar  to 
,e  only  difference  is  that,  in  LNF,  square  brackets  have  replaced 
truct’s  enclosing  delimiters.  Since  these  expressions  really  are 
their  lazy-normal  form  is  either  the  empty  list  ([  ])  or  a  pair  — 
re  inappropriate  bits  of  sugar.  A  few  examples  of  implicit  lists, 
r  syntax,  follow: 

I  ?x€[l,..,100]] 

)];  (odd  ’x);  ?yG[l00,10l]] 

]€(zip  [l,..,10]  [100,.  ,110]),  zerop  (rem  ’y  ’x)] 

it  lists,  which  the  author  prefers  over  the  one  just  described, 
ntial  differences  between  the  two  notations  are:  (1)  where  the 
uced,  and  (2)  the  physical  location  of  the  scopes  of  the  intro- 
modified  Turner  syntax,  variables  are  bound  after  their  use 
tructs)  and  their  scopes  are  not  contiguous.  In  the  new  syntax, 
re  their  use  (similar  to  LET  constructs)  and  scopes  are  always 
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contiguous.  The  implicit  lists  above  are  redisplayed  below  using  this  new  syntax: 

for-each  ?x€[l,.,100] 
instantiate  (subl  (X  10  ?x)) 

for-each  ?x€[l,..,5] 
such-that  (odd  ?x) 
and-for-each  ?y€  [100,101] 
instantiate  [i’x*?y] 

for-each  [?x»?y]€(zip  [l,..,10]  [100, ..,1 10]) 
such-that  (zerop  (rem  ?y  ?x)) 
instantiate  (4-  ?x  ?y) 

The  SIMPLE-exp  equivalent  of  each  type  of  list  expression  will  now  be  displayed. 


3.3.4. 1.  Explicit  Lists 

Explicit  lists  are  easily  desugared  to  simple  expressions  using  the  constructors;  [  ]  and 
PAIR.  To  understand  how  arbitrary  explicit  lists  are  transformed,  it  is  enough  to  see 
how  the  following  sample  expressions  are  tranformed: 

[1,2, 3, 4]  becomes  PAIR  1  (PAIR  2  (PAIR  3  (PAIR  4  [  ]))), 

[flat,2,TIRE,l«23]  becomes  PAIR  FLAT  (PAIR  2  (PAIR  TIRE  23)),16 
[a»b]  becomes  PAIR  A  B,  and 

[A,b»(pair  c  [  ])]  becomes  PAIR  A  (PAIR  B  (PAIR  C  [  ])). 

3.3.4.2.  Arithmetic  Sequence  Expressions 

Arithmetic  sequence  expressions  are  a  convenient  shorthand  for  monotonic  sequences  of 
numbers,  where  the  element  (c*)  in  the  sequence  may  be  expressed  by:  e  i-f(A:-l)c  , 
for  some  constant  c  —  i.e.  arithmetic  sequences.  These  sequences  may  be  finite  or 
infinite. 

Finite  arithmetic  sequence  exps  take  either  the  form  pC,..,Z]  or  [X,Y....Z];  both  of  which 
are  sugar  for  unknowns  of  the  form: 

FBT  X  W  Z, 

representing  the  sequence: 

From  X  By  W  To  Z, 

where  W  is  either  1  or  (-  YX),  respectively  Some  finite  arithmetic  sequence  exps  and 
their  SIMPLEl-exp  equivalents  follow 


The  LNF  system  is  case  insensitive 
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[2,4,. .,100]  becomes  FBT  2  (-  4  2)  100, 

[l,..,1000]  becomes  FBT  1  1  1000,  and 
[10,7.5,..,0]  becomes  FBT  10  (-  7.5  10)  0. 

Note  that  in  a  list  of  the  form  [X,..,Y]  (without  a  second  element),  the  second  element  is 
assumed  to  be  X+1. 

A  sample  (linearized)  reduction  of  the  finite  arithmetic  sequence  exp:  [2,4, ..,100]  to  lazy- 
normal  form:^^ 

FBT  2  (-  4  2)  100  -»  FBT  2  2  100  —  PAIR  2  (FBT'  4  2  100). 

Infinite  arithmetic  sequence  exps  look  like  pc...]  or  pC,Y,..]  —  both  of  which  are 
transformed  by  the  compiler  to  wITs  taking  the  form: 

FB  XW, 

representing  the  sequence: 

From  X  By  W, 

where  W  is  either  1  or  (-  Y  X),  respectively.  Some  sample  transformations  of  infinite 
arithmetic  sequence  exps  are  displayed  below: 

[l,..]  becomes  FB  1  1, 

[10,10,..]  becomes  FB  10  (-  10  10), 

[1,3,..]  becomes  FB  1  (-  3  1),  and 
[0,-1,..]  becomes  FB  0  (-  -1  0). 


A  graphical  representation  of  the  reduction  of  the  sequence:  [10.10,..]  to  lazy-normal 
form  follows; 


The  reader  may,  at  this  time,  want  to  refer  back  to  Chapter  2  for  FBT's  reduction  rules 
FBT'  acts  just  like  FBT  except  that  .t  as.siimes  its  .arguments  have  already  been  reduced  to 
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B  SUBl  (X  10) 

is  the  result  of  compiling  the  LAMBDA-exp 
X  (?x)  (subl  ( X  10  ?x)). 

To  see  that  this  compiled  wff  has  the  expected  lazy-normal  form  —  that  is: 

PAIR  X  REST,  where  X  is  a  wff  which  reduces  to  9  and  REST  is  a  wff  which  reduces 

to  the  rest  of  the  list  —  follow  its  two  step  reduction  to  lazy-normal  form; 

MAP  (B  SUBl  (X  10))  (FBT  1  1  100)  ^ 

MAP  (B  SUBl  (X  10))  (PAIR  1  (FBT'  2  1  100)) 

PAIR  (B  SUBl  (X  10)  1)  (MAP  (B  SUBl  (x  10))  (FBT'  2  1  100)). 

It  should  be  (fairly)  clear  that  the  first  argument  to  PAIR  (the  head  of  the  list)  reduces 
to  9.  It  should  also  be  easy  to  see  that  the  second  argument,  since  it  is  just  like  the  ori¬ 
ginal  LNF-wff  except  that  (FBT  1  1  100)  has  been  replaced  with  (FBT'  2  1  100),  will 
reduce  to  [19,. ..,999]. 

In  general,  an  implicit  list  having  the  form; 

for-each  beOC 
instantiate  BODY 

compiles  to  a  SIMPLEXexp  having  the  form, 

MAP  FN  LIST, 

where  FN  is  the  result  of  compiling  the  LAMBDA-exp: 

(X  (be)  BODY)) 

and  LIST  is  the  compiled  version  of  X. 

■As  illustrated  by  ihe  two  other  examples  of  implicit  lists  above  (see  page  98),  implicit 
lists  may,  in  general,  have  a  more  complex  structure  than  that  just  described.  Besides 
always  beginning  with  a  phrase  of  the  form;  for-each  beCX  (called  a  generator  by 
Turner),  and  always  ending  with  a  phrase  of  the  form:  instantiate  BODY,  an  implicit 
list  may  have  one  or  more  intervening  phrases  either  having  the  form; 

and-each  beGX  (more  generators) 

or: 

such-that  X  (called  guards  or  filters).-^ 


A 


A  . 

■ 

m 


The  FP  language  ALFL  ([Hudak  1984c])  contains  a  similar,  although  restricted,  con¬ 
struct  called  an  “ordered  bag”.  The  first  restriction  is  that  all  generators  must  precede 
all  filters.  More  serious,  although  infinite  lists  are  supported  in  the  language,  the  ordered 
bag;  [*  [x,y]  |  x<'Nats:  y<-Nats  *]  produces  the  list:  [[l,l],[l,2],[l,3],[l,4],.  .]  —  a  list  in 
which  most  of  the  elements  in  the  cross-product  do  not  even  appear! 

To  illustrate  the  scoping  of  an  implicit  list,  consider  the  following  for-each  expression: 


^  Appendix  B  contains  a  BNF-llke  description  of  the  syntax  of  implicit  list  expressions 


for-each  bciSLISTj 
such-that  GUARDi 
and-for-each  be2€LIST2 
such-that  GUARD2 
instantiate  EXP 

The  expressions  in  the  scope  of  bcj’s  variables  are;  GUARDj,  LIST2,  GUARD2,  and 
EXP  —  i.e.  the  expressions  following  the  introduction  of  the  bound  expression  bci. 
Similarly,  the  expressions  in  the  scope  of  the  variables  in  be2  are  GUARD2  and  EXP. 
The  expression  EXP  is  called  the  template  of  the  implicit  list. 

An  expression  having  the  above  form  is  transformed  into  an  equivalent  combination  (see 
below),  and  then  compiled. 

ENUMERATE 
(MAP  (X  (bei) 

(IF  GUARDi 

(MAP  (X  (be2)  EXP) 

(FILTER  (X  (beo)  GUARDj) 

LIST2)) 

[])) 

LISTi) 

Careful  inspection  of  this  rather  complicated  expression  reveals  that  it  reduces  to  the 
expected  construction  —  a  (possibly  empty)  list  of  instantiated  EXPs.  To  understand 
the  expression,  one  must  be  familiar  with  the  workings  of  the  functors:  MAP,  FILTER, 
and  ENUMERATE.  The  rules  defining  the  functors  MAP  and  FILTER  are  straightfor¬ 
ward  (see  Chapter  2),  but  the  rules  which  define  ENUMERATE  are  not.  ENUMERATE 
may  best  be  understood  not  by  peering  at  its  rule  and  the  rules  of  the  other  functors 
upon  which  its  rule  depends  (TURN,  UP,  and  DOWN),  but  by  seeing  what  kind  of  con¬ 
struction  it  expects  as  an  argument  and  what  kind  of  construction  it  produces  from  that 
argument. 

ENUMERATE  expects  as  argument  a  list  (empty,  finite,  or  infinite)  of  lists,  each  of 
which  may  also  be  empty,  finite,  or  infinite.  That  is  to  say,  an  appropriate  argument  for 
ENUMERATE  takes  the  form; 

[P^21i^22iX23,--]i 

[pC3i,X32PC33,...], 

...]. 

ENUMERATE,  applied  to  such  a  list,  reduces  to  the  list; 

P^n)^12>^21>^31i^22>^13>^14i^23>  -]- 

Thus  ENUMERATE  borrows  the  scheme  Cantor  used  for  demonstrating  the  countabil¬ 
ity  of  the  rationals  and  produces  a  flattened  list  containing  all  of  the  elements  in  each  of 
its  argument’s  sublists.  The  rules  defining  ENUMERATE  and  its  “helping”  functors 
were  gleaned  from  a  functional  definition  of  ENUMERATE  by  F.  L.  Morris, 
[Morris  1984]. 
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Turner,  for  his  ZF  expressions  in  KRC,  uses  a  different  implementation  strategy  involv¬ 
ing  the  functors  FLATMAP  and  INTERLEAVE  —  instead  of  ENUMERATE  and 
map. 21  The  main  difference  between  this  contract’s  implementation  in  LNF  and  KRC  is 
the  order  in  which  the  elements  of  the  implicit  list  are  produced.  Turner’s  implementa¬ 
tion  is  biased  more  towards  the  first  generator  —  i.e.  the  first  list  in  a  ZF  expression  is 
"run  through”  much  more  quickly  than  the  rest  of  the  lists. 

An  implicit  list,  viewed  as  an  initial  phrase  P  (which  may  be  either  a  generating  or  filter¬ 
ing  phrase)  and  remaining  phrases  R,  is  Iraiisformed  as  follows.  In  case: 

P  is  be€X  and  R  consists  of  just  a  template: 

MAP  (X  (be)  R)  X 

P  is  beGX  and  R  contains  only  guards  GS  and  a  template  T: 

MAP  (X  (be)  T) 

(FILTER  (X  (be)  (conjunction  of  the  GS))  X) 

P  is  be€X  and  R  contains  generators: 

ENUMERATE  (MAP  (X  (be)  (transform  R))  X) 

P  is  a  guard: 

IF  P  (transform  R)  [  ] 

The  implicit  list: 

for-each  ?x€[l,..,5] 
such-that  (odd  ?x) 
and-for-each  ?y€[l00,10l] 
instantiate  [?x»?y] 

is  transformed  to  the  combination 

ENUMERATE 

(MAP 

(C  (S'  IF  ODD  (C'  MAP  PAIR  (PAIR  100  (PAIR  101  [  ]))))  [  ]) 

(FBT  1  1  5)). 

This  compiled  implicit  list  reduces  to  its  lazy-normal  form: 

[[1*100]* 

UP[] 

[MAP  (PAIR  1)  [101]] 

(MAP  (C  (S'  IF  ODD  (C'  MAP  PAIR  [100,101]))  [  ])  (FBT'  2  1  5))] 
in  14  reduction  steps. 


3.3.5.  Conditional  Expressions 

There  are  two  conditional  expressions  in  the  LNF  language  IF  expressions  and  CASE 
expressions. 

Turner's  implementation  scheme  is  explained  .pule  ni'  elv  in  [Abelson  198.S] 
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3.3.5. 1.  IF  Expressions 

The  IF-exp: 

if  CONDITION  then  THEN-EXP  else  ELSE-EXP 

is  simply  sugar  for  a  combination  having  operator:  (IF  CONDITION  THEN-EXP) 
and  operand:  ELSE-EXP.  Its  representation,  therefore,  takes  the  same  form  as  any 
combination  having  three  arguments. 


ZetaLisp  representation  of  the  conditional:  if  x  then  +  else  X 

Figure  3.7 


3.3 .5 .2. 


CASE  expressions  (CASE-exps),  introduced  in  the  discussion  of  function  declarations,  are 
conditional  binding  constructs. The  CASE-exp: 

case  E  in 

cbei  ^  BODYi  I 
cbe2  —  BODY2  1 


BODY„ 


endcase 


attempts  to  match  the  object  of  the  case  (E)  against  the  pairwise  non-unifiable  ([Robin¬ 
son  1965])  case  templates  (cbe,  s)  —  which  are  just  constructed  bound  expressions.  If  E 
matches  template  cbe^  ,  then  the  case  expression  reduces  to  (the  compiled  equivalent  of 
the  /?-redex): 

(X  (cbey )  BODYy )  E. 

If  E  does  not  match  any  of  the  templates,  then  the  CASE-exp  reduces  to  an  unknown. 
A  CASE-exp  is  transformed  to  a  combination,  employing  the  functors  A-S-E,  A-S-E' , 
and  A-S' .  The  A-S'  functor  is  a  nonstrict  version  of  the  A.-S  functor  —  inasmuch  as  it 
does  not  reduce  its  fourth  argument.  The  functors  A-S-E  and  A-S-E'  are  best  explained 
by  studying  A-S-E’s  four  reduction  rules,  which  are: 

22  Other  FP  languages  which  contain  similar  constructs  include  ML  ([Milner  1983]),  Lazy  ML 
'[Augustsson  lOS-la],  [Augustsson  1984b],  [Johnsson  198lb|,  [Johnsson  1983],  and  [Johns- 
son  1984]),  and  HASL  ([Abramson  1982b]  and  [Abramson  1983]) 
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A-S-E  A-S-E  c  i  X  Y  (c  Z,  ■  •  •  Z, )  ^  X 
A-S-E  Cl  i  X  Y  (co  Zi  •  ■  •  Zy  )  ^  Y, 
if  ci=9^c<i  or  i=f^\ 

A-S-E  c  i  X  Y  FN  —  Y 

A-S-E  c  i  X  Y  RDU  -»  A-S-E  c  i  X  Y  IMR 


Together,  these  rules  mean  that  the  LNF-wff: 


A-S-E  c  i  X  Y  Z 


is  reduced  just  like  the  wff: 


IF  (AND  (=  c  (CONSTRUCTOR  Z))  (=  i  (NUM-ARGS  Z))) 


A-S-E  is  a  condensed  form  of  “Abstract  Structure  Else”.  The  functor  A-S-E'  is  to  A-S- 
E  as  A-S'  is  to  A-S.  CAS&exps  are  compiled  b\  the  function  Compile-case  and  its  three 
helping  functions:  Abstract-cases,  Abstract-template-else,  and  Abstract-templates-else 
which  appear  below: 


(DEFUN  Compile-case  (case-exp) 

(LET  ((cases  (Cases  case-exp)) 

(case-object  (Case-object  case-exp)) 

(var  (New-variable))) 

(IF  (Order-dependent  cases)  (Issue-warning-message)) 

(Combine  (C-T-abs  var  (Abstract-cases  cases  var))  case-object))) 


(DEFUN  Abstract-cases 
(cases  var  &optional  (already-seen-a-case  NIL)) 

(LET*  ((first-case  (CAR  cases)) 

(rest-cases  (CDR  cases)) 

(template  (Template  first-case)) 

(result  (Result  first-case))) 

(IF  (NULL  rest-cases)  ;;  FIRST  CASE  IS  ALSO  THE  LAST  CASE 
(Combine  (Abstract-be  template  result  already-seen-a-case)  var) 
(Abstract-template-else 
template 


result 


(Abstract-cases  rest-cases  var  T) 
already-seen-a-case)))) 
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(DEFUN  Abstract-template-else 
(template  result  var  ebe  &optional  (already-seen-a-case  NIL)) 
(Combine 

(IF  (Constructed-be-p  template) 

(LET  ((constructor  (Constructor  template)) 

(num-args  (Num-args  template))) 

(A-S-E-or- A-S-E'  -comb 
alread  y-see  n-  8/  case 


constructor 


num-args 

(Abstract-  templates-else 
(Args  template) 


result 


1 

else) 

ebe) 

;;  TEMPLATE  IS  A  VARIABLE,  SO  NO  NEED  FOR  ELSE 
(C-T-abs  template  result)) 
var)) 


(DEFUN  Abstract- tern plates-e be 
(templates  result  var  arg-number  ebe) 
(IF  (NULL  templates) 
result 

(Abstract-template-ebe 
(CAR  templates) 
(Abstract-templates-ebe 
(CDR  templates) 
result 


(ADDl  arg-number) 
ebe) 

(Combine  (Combine  ’ARC  arg-number)  var) 
else))) 

Note  that  if  the  piece  of  code: 

(Combine  (C-T-abs  var  (Abstract-cases  cases  var))  case-object)) 
in  Compile-case  was  replaced  with: 

(Abstract-cases  cases  case-object) 

then  CASE-exps  would  not  be  fully  lazy.  In  situations  where  case-object  is  an  unknown 
containing  variables  —  e.g.  (-1-  1  ?x)  —  more  than  one  redex  may  be  created  and 
reduced,  violating  the  property  of  full-laziness  LNF  enjoys. 


Two  concrete  CASE)-exps  and  their  compiled  equivalents  follow.  The  CASE-exp: 
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Compiled  code  of  the  CASE-exp  above 

Figure  3.8 


The  CASE-exp: 


case  a-number  in 
0  —*  zero  I 

1  — ►  one  I 

2  — +  two 
endcase 


compiles  to  (the  LNF-wff): 
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system’s  set  of  functors  —  they  could  also  he  used  (as  is)  in  a  realization  of  the  SKI-G- 
calculus.  The  routines  which  perform  the  individual  reduction  steps  are  mutually 
independent  and  functor  specific  —  there  is  one  routine  per  functor  The  functor 
specific  routine  for  functor  f  (called  f-reducc)  is.  in  essence,  an  encoding  of  f’s  LNF- 
calculus  reduction  rules  and  is  responsible  for  reducing  (if  reducible)  a  wff  having  f  as  its 
initial  atom.  This  organization  facilitates  experimentation  with  different  functor  sets,  as 
functors  may  be  added  to  (removed  from)  the  system  by  simply  adding  (removing)  func¬ 
tor  specific  routines  —  no  code  need  be  modified 

.\lthough  far  from  being  a  specification  for  a  piece  of  hardware,  the  implementation  is 
quite  machine-like.  That  is  to  say  the  routines  themselves  are  written  in  an  imperative 
and  "referentially  opaque”  style.  The  machine-like  structure  of  the  runtime  system's 
implementation  was  determined  in  part  by  a  plan  to  move  the  implementation  (or  some 
successor  of  it)  of  software  and  into  firmware  and  maybe  even  to  hardware. 

All  of  the  significant  routines  making  up  LNF’s  runtime  system  and  the  data  structures 
which  they  employ  will  now  be  discussed  in  detail  The  routines  which  control  the 
reduction  (which  are  the  top  level  routines  in  the  runtime  system)  are  discussed  first. 


3.4.1.  Controlling  the  Reduction 

The  routines  controlling  the  reduction  'if  an  LNF-wff  employ  a  stack;  the  items  in  the 
stack  are  stacks  (called  left  ancestor  stacks)  themselves.  A  left  ancestor  stack  (LAS)  is 
the  key  data  structure  used  in  D  Turner's  implementation  of  S.\SL  —  outlined  in 
[Turner  1979c].  An  LAS,  used  in  conjunction  with  an  expression  graph  (an  LNF-wff), 
eases  access  to  the  LNF-wff’s  initial  atom  and  arguments.  The  bottom  item  of  such  a 
stack  points  at  the  root  of  the  LNF-wff.  Each  of  the  stack's  other  items  points  at  the 
operator  of  the  LNF-wff  pointed  at  by  the  item  just  below  it  .^n  L.\S  representation  is 
called  canonical  if  its  top  item  is  the  LNF-wff’s  initial  atom. 


■  •  - .  • .  • . 

1 .  •  .  I—  J 

Me 


.\n  Example  of  a  ( Non-canon ical)  Left  .\ncpstor  Stack 

Figure  3.10 

It  is  convenient  to  display  the  L.\.Ss  grijwing  ilownward,  ,'^ince  the  trees  (LNF-wffs)  thev 
represent  are  customarily  pictured  with  ro<>t  at  top  and  leaves  at  the  bottom. 
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An  Example  of  a  Canonical  Left  Ancestor  Stack 

Figure  3.11 
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One  can  see  that  a  canonical  LAS  facilitates  access  to  the  LNF-wff’s  initial  atom  and 
arguments.  If  an  LAS  is  realized  by  an  array  (as  is  done  in  this  implementation)  the 
LNF-wff’s  initial  atom  and  arguments  may  be  accessed  in  constant  time. 

The  next  example  illustrates  the  other  property  of  LASs  —  no  canonical  LAS  item 
points  to  a  forwarding  vertex.  The  top  item  of  a  non-canonical  LAS  may  point  to  a  for¬ 
warding  vertex.  It  will  be  seen  that  the  functor  specific  routines  access  the  LNF-wff’s 
arguments  via  a  canonical  LAS.  The  fact  that  the  LAS’s  items  are  never  forwarding  ver¬ 
tices  ensures  that  these  routines  will  have  to  handle  only  “real”  LNF-wffs  —  i.e.  combi¬ 
nations  and  atoms. 


Figure  3.12 


It  was  stated  above  that  the  runtime  system  employed  a  stack  of  LASs.  Briefly,  the 
stack  of  LASs  is  used  to  locate  the  next  redex  to  be  reduced.  The  bottom  item  is  the 
L.\S  representing  the  whole  LNF-wff.  If  this  LNF-wff  is  a  reduction  context  for  argu¬ 
ment  i,  then  the  next  item  will  be  the  LAS  representing  the  LNF-wff’s  ith  argument 
The  top  LAS  represents  the  LNF-wff  on  which  the  system  is  currently  focusing  its  atten¬ 
tion.  An  example  follows: 
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A  Stack  of  LASs  representing:  +  (x  (addl  3)  7)  (+  2  2) 

Figure  3.13 

In  the  discussions  to  follow,  the  stack  of  LASs  will  be  referred  to  as  simply  the  stack;  its 
items  (which  are  also  stacks)  will  be  referred  to  as  the  LASs.  The  ZetaLisp  code  which 
realizes  this  system,  starting  with  the  code  for  LNF-of-wff,  will  now  be  presented. 

;;  Returns  as  value  the  lazy-normal  form  of  wff  (if  one  exists). 

;;  Assumes  nothing  about  current  state  of  the  stack. 

(DEFUN  LNF-of-wff  (wff) 

;;  First,  clear  the  stack. 

(Clear-stack) 

;;  Then,  reduce  the  wff  to  lazy-normal  form  and  return  it. 

(LNF-of-subwff  wff)) 

;;  Returns  the  lazy-normal  form  of  wff,  leaves  the  stack  unchanged. 

(DEFUN  LNF-of-subwff  (wff) 

;;  Find  the  wff’s  lazy  normal  form, 

;;  leaving  its  LAS  representation  as  the  stack’s  top  element. 
(Stack-of-LNF-of-subwff  wff) 

;;  Pop  the  top  (canonical)  LAS  off  of  the  stack, 

;;  then  return  that  LAS’s  bottom  element  as  result 
(Pop-stack)) 

;;  Reduces  wff  to  lazy-normal  form  and 

;;  places  its  canonical  LAS  representation  on  top  of  stack. 

;;  It  is  called  for  these  side  effects  only. 

(DEFUN  Stack-of-LNF-of-subwff  (wff) 

;;  Push  (non-canonical)  LAS  representation  of  wff  on  stack. 

(Push-stack  wff) 

;;  Reduce  wff  represented  in  top  LAS  to  lazy-normal  form. 

;;  Leave  canonical  LAS  representation  of  it  on  top. 

(Reduce-stack-to-LNF)) 

The  following  function  is  “the  execution  cycle"  of  the  runtime  system. 
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•  ;;  Assumes  a  non-canonical  LAS  on  top  of  stack. 

I  ;;  Reduces  the  LNF-wff  it’s  representing  to  lazy-normal  form, 

i  ;;  leaving  the  canonical  LAS  of  this  reduced  LNF-wff  on  top. 

I  ;;  Called  for  these  side  effects  only. 

\  (DEFUN  Reduce-stack-to-LNF 

'  (LOOP  ;;  is  exited  when  (RETURN)  is  evaluated, 

j  ;;  Canonicalize  top  LAS  on  stack. 

!  (Canonicalize-stack) 

'  ;;  Attempt  to  reduce  initial  redex. 

i  ;;  This  may  involve  reducing  some  arguments  first. 

!  ;;  If  no  initial  reduction  performed  or  reduction  makes 

;;  LNF-wff  irreducible,  then  return. 

I  (LET  ((reduction-code  (Attempt-mitial-reduction))) 

,  (IF  (OR  (Reduction-not-performed  reduction-code) 

I  (LNF-wff-now-irreducible  reduction-code)) 

i  (RETURN))))) 

!  ;;  .Assumes  stack  is  not  empty.  Canonicalizes  the  top 

I  LAS.  Called  for  its  side  effect  on  the  LAS  only 

(DEFUN  Canonicalize-stack  () 

I  (LET  ((top-wff  (Top-wff-on-top-LAS))) 

;  (LOOP  WHILE  (NOT  (Atom-p  top-wff)) 

'  ;;  top-wff  is  either  a  combination  or 

'  a  forwarding  vertex 

(IF  (Combination-p  top-wff) 

;;  Assign  top-wff  to  be  its  own  operator 
;;  Push  top-wff  onto  the  top  of  the  LAS 
(Push-top-LAS  (SETQ  top-wff  (Operator  top-wff))) 

;;  Otherwise,  top-wff  is  a  forwarding  vertex,  so 
I  ;;  Assign  top-wff  to  be  the  LNF-wff  to  which  it  was 

'  ;;  forwarded.  Overwrite  LAS’s  top  item  with  new  top-wff. 

:  (Replace-LAS-top  (SETQ  top-wff  (Forwarded-to  top-wff))))))) 


A  step  by  step  example  of  LAS  canonicalization  follows. 


.Just  After  Initialization 

Figure  3.14 


LNF\P 


After  One  Trip  Through  the  Loop 

Figure  3.15 
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After  Two  Trips  Through  the  Loop 

Figure  3.16 
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Top  L.-\S  ha^  been  Canomralized 

Figure  3.17 

Observe  that  there  is  no  “loop  check’’  in  the  routine  Canonicalize-stack.  Thus,  an 
L.\F-wff  having  a  cyclic  “left  spine”  will  cause  the  system  to  run  forever.  The  decision 
to  leave  the  check  out  was  made  because  such  LNF-wffs  have  no  lazy-normal  form  any¬ 
way.  and  the  system  does  not  claim  to  terminate  for  LNF-wffs  having  no  lazy-normal 
form. 

The  one  remaining  control  ro  itine  to  be  displayed'-^  is  .\ttempt-initial-reduction  Its  job 

The  very  low  level  routines  like  Replace-LAS-top  Push-slack  Push-top-LA5,  will  not  be 
displayed 
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Figure  3.18 

The  code  for  the  S-reduce  routine  follows. 

;;SXYZ-XZ(YZ) 

(DEFUN  S-reduce  () 

(LET*  ((redex  (LAS-itein-4)) 

(x  (LAS-arg-1)) 

(y  (LAS-arg-2)) 

(z  (LAS-arg-3)) 

;;  create  the  new  combination  X  Z 
(xz  (Combine  x  z)) 

;;  create  the  new  combination  Y  Z 
(yz  (Combine  y  z))) 

;;  Overwrite  the  operator  and  operand  of  redex  with 
;;  xz  and  yz  respectively. 

(Replace-operator-and-operand  redex  xz  xy) 
i  ;;  Overwrite  item  which  used  to  contain  Sxy  with  xz. 

(Replace-LAS-item-3  xz) 

;;  Overwrite  item  which  used  to  contain  Sx  with  x. 
(Replace-LAS-item-2  x) 

;;  Pop  the  functor  S  from  LAS. 

(Pop-LAS) 

;;  Return  the  S  reduction  code. 

♦RTP-S*)) 

;;  Overwrites  comb’s  operator  and  operand  with  newopr  and 
;;  newopd,  respectively.  Called  for  its  side  effect  only. 

(DEFUN  Replace-operator-and-operand  (comb  newopr  newopd) 
(RPLACD  (RPLACA  comb  newopr)  newopd)) 


A  minor  point  —  in  S-reduce,  the  two  LAS  stack  overwrite  operations  and  the  popping 
of  the  LAS  may  be  replaced  with  the  simpler:  (Pop-n-items-from-LAS  3)  since  the  next 
call  on  Canon icalize-stack  will  perform  these  overwritings.  The  overwriting  is  performed 
in  S-reduce  just  because  the  system  knows  it  will  have  to  be  done  soon  and  since  it  has 
the  wfls  in  hand,  why  not  do  it?  A  graphical  representation  of  S-reduce’s  operation  fol¬ 
lows. 
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The  Workings  of  S-reduce 
Figure  3.19 


Note  that  two  new  combinations  have  been  created  by  S-reduce.  One  may  assign  a 
“space  cost"  to  each  of  the  reduction  routines  —  the  number  of  combination  cells 
created.  The  space  cost  of  S-reduce  is  therefore  equal  to  two.  The  code  for  the  K- 
reduce  routine  follows. 

KX  Y  -  X 
(DEFUN  K-reduce  () 

(Forward-combination 
;;  the  redex 
(LAS-item-3) 

;;  toX 

(LAS-arg-l) 

;;  then  pop  the  LAS  twice,  then 
;;  replaces  its  top  item  with  wff 

;;  return  the  K  reduction  code 
♦R.TP-K*) 

;;  Forwards  comb  to  wff  and  pops  top  LAS  n  times. 

;;  Called  for  its  side  effects  only. 

(DEFUN  Forward-combination  (comb  wff  &optional  n) 
(Replace-operator-and-operand  comb  ’LNF.IP  wff) 

(COND  (n  ;;  n  is  NIL  if  not  provided  as  argument 
(Pop-n-items-from-LAS  n) 

(Replace-LAS-top  wff)))) 
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The  VV'orkings  of  K-reduce 

Figure  3.20 

Observe  that,  following  the  K  reduction,  LAS’s  top  item  is  X  and  not  the  forwarding 
vertex  which  points  at  X.  This  is  another  case  of  a  reduction  routine  doing  a  job  that 
Canonicalize-stack  would  have  to  do  later.  K-reduce ’s  space  cost  is  zero  The  W-reduce 
and  Y-reduce  routines  are  presented  next. 

;,  W  X  Y  ^  X  Y  Y 

(DEFUN  W-reduce  () 

(LET*  ((redex  (LAS-item-3)) 

(x  (LAS-arg-1)) 

(y  (LAS-arg-2)) 

;;  Create  the  new  combination  X  Y 
(xy  (Combine  x  y))) 

;;  Overwrite  redex’s  operator  with  xy 
(Replace-operator  redex  xy) 

;;  Overwrite  item  that  used  to  contain  Wx  with  xy 
(Replace-LAS-item-2  xy) 

;;  Overwrite  item  that  used  to  contain  W  with  x 
(Replace-LAS-top  x) 

;;  Return  W  reduction  code. 

*RTP-W*)) 

;;  YX-*X(X  (X  ...)) 

(DEFUN  Y-reduce  () 

(LET*  ((redex  (L.\S-item-2)) 

(x  (LAS-arg-2))) 

;;  Overwrite  redex’s  operator  with  x  and  operand  with 
,;  itself! 

(Replace-operator-and-operand  redex  x  redex) 

;;  Overwrite  item  which  used  to  contain  Y  with  x. 

(Replace-LAS-top  x) 

;;  Return  Y  reduction  code. 

*RTP-Y*)) 

The  W-reduce  routine  costs  one  combinat-on  while  the  Y-reduce  routine  costs  nothing  at 
all  to  run. 
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X  n  m  — ►  nXm 
X  RDU  Y  ^  X  IMR  Y 
X  n  RDU  — ►  X  n  IMR 
(DEFUN  X-reduce  () 

(LET  ((redex  (LAS-item-3)) 

(x  (LNF-of-subwff  (LAS-arg-1)))) 

(IF  (NUMBER?  x)  ;;  THEN 

(LET  ((y  (LNF-of-subwff  (LAS-arg-2)))) 

(COND  ((NUMBER?  y) 

(Forward-corn  bin  ation 
redex  ;;  to 
(X  X  y) 

Fop  the  LAS  twice,  then 
;;  replaces  its  top  item  with  (x  x  y). 

2) 

Return  code  which  informs  caller  that 
;  X  reduction  was  performed  and  LNF-wff 
now  irreducible. 

(Irreducible-code  *RT?-X*)) 

(T  y's  lazy-normal  form  is  not  a  number,  so 
return  "no  reduction  performed”  code. 
•NO- RED*))) 

.  FTSE  x’s  lazy-normal  form  not  a  number,  so 
..  return  "no  reduction  performed”  code. 

•NO- RED*))) 


The  above  routine  requires  some  explanation.  It  purports  to  be  an  encoding  of  the  three 
reduction  rules  for  multiplication  (the  three  comment  lines  just  preceding  the  code). 
Where  are  these  rules  in  the  code?  Before  answering  this  question,  there  is  an  obvious 
but  (pragmatically)  important  point  to  be  made  concerning  reduction  contexts  in  the 
LNF-calculus.  If  X  is  a  reducible  f  reduction  context  for  argument  i  and  X  LNF-imr  Y 
(Y  is  just  like  X  except  that  ARG[i,X]  has  been  reduced  to  ARG[i,Y])  and  ARG[i,Y] 
reducible,  then  Y  is  an  f  reduction  context  for  argument  i.  For  example,  the  LNF-wff  on 
the  left  in  the  following  figure  is  a  X  reduction  context  for  argument  one.  The  LNF-wff 
on  the  right  (the  reductum  of  the  LNF-wff  on  the  left)  is  also  a  X  reduction  context  for 
argument  one. 
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Example  of  Reduction  Context  Preservation 
Figure  3.23 

Because  reduction  contexts  are  preserved  in  this  way  X-reduce  may  reduce  its  LNF-wff’s 
first  argument  all  the  way  to  lazy-normal  form  (via  LNF-of-subwff^'*  ),  rather  than  just 
performing  a  single  reduction  on  it  (as  its  first  contextual  reduction  rule  specifies).  After 
the  first  argument  has  been  reduced,  it  is  time  to  check  and  see  if  it  reduced  to  a 
number.  If  it  did,  then  the  LNF-wff  is  now  a  reduction  context  for  the  second  argument. 
The  routine  proceeds  to  reduce  the  second  argument  to  lazy-normal  form  (again  via 
LNF-of-subwff).  If  the  second  argument  is  a  number,  then  X’s  substantive  reduction 
rule  may  be  applied. 

Thus  X’s  first  contextual  rule  is  endcoded  in  the  routine’s  third  line: 

(x  (LNF-of-subwff  (LAS-arg-1)))) 

and  x’s  second  contextual  rule  is  hidden  In  lines  four  and  five: 

(IF  (NUMBER?  x)  ;;  THEN 

(LET  ((y  (LNF-of-subwff  (LAS-arg-2)))). 

Its  only  substantive  reduction  rule  is  realized  by  the  two  nested  predications  (NUM¬ 
BER?  x)  and  (NUMBER?  y)  and  the  call  on  the  function  Forward-combination  which 
forwards  the  redex  to  the  product  of  x  and  y. 

All  of  the  routines  which  deal  with  strict  functors  follow  a  reduction  sequence  similar  to 
that  followed  by  X-reduce.  First  the  routine  finds  the  appropriate  argument  to  reduce 
(determined  by  the  functor’s  contextual  reduction  rules).  That  argument  is  reduced  to 
lazy-normal  form.  If  the  reduction  of  that  argument  creates  a  reduction  context  for 
another  argument,  then  that  argument  is  reduced.  When  all  of  the  functor’s  contextual 
reduction  rules  have  been  applied,  then  the  routine  tries  to  apply  a  substantive  reduc¬ 
tion  rule. 

Enough  reduction  rules  have  been  presented  now  to  enable  a  not  totally  trivial  example 
of  LNF-wff  reduction  to  be  given.  The  LNF-wff  to  be  reduced  in  this  example  is: 

W  X  (+  1  2) 

which  is  the  LNF-wff  to  which  the  LNF-exp: 

The  routine  LNF-of-wff  may  not  be  used  since  it  resets  the  stack  of  LASs  before  beginning 
Recall  that  LNF-of-subwff  does  not  disturb  the  stack 
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Still  Inside  X-reduce.  Just  After  second  Call  on  LNF-of-subwff  Returns 

Figure  3.30 
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Figure  3.31 

The  significant  aspects  of  LNF’s  runtime  system  have  been  presented.  There  are,  of 
course,  many  more  reduction  routines;  but  their  similarity  to  the  routines  just  detailed 
obviates  the  need  to  present  them  here.  It  has  been  shown,  mainly  in  pictures,  that  run¬ 
ning  an  LNF  program  is  nothing  more  than  reducing  an  LNF-wff  to  lazy-normal  form 
via  the  reduction  rules  of  the  LNF-calculus. 


3.5.  Displaying  the  Results 


“>1 


The  function  Display  accepts  LNF-wffs  in  lazy-normal  form  and  displays  their  lineariza¬ 
tion  on  the  screen.  The  user  may  elect  to  see  the  results  of  a  computation  (the  reduced 
LNF-wff)  in  one  of  three  formats: 

•  Lazy-normal  Form  —  arguments  of  constructions  and  functions  remain  unreduced 
(the  default) 

•  Normal  Form  —  no  redexes  remain  in  the  result 

•  Normal  Form  of  Members  —  instead  of  a  list’s  members  being  displayed  surrounded 
by  square  brackets  and  separated  by  commas,  just  the  (normal  form  of)  each  member 
is  displayed 

The  user  selects  the  display  mode  of  choice  by  entering  a  directive  (via  the  mouse).  The 
system  responds  by  changing  its  prompt  (for  the  next  LNf  expression  to  be  compiled. 
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reduced,  and  displayed)  to  either: 

•  LNF  of —  (for  lazy-normal  form), 

•  NF  of  —  (for  normal  form),  or 

•  NF  of  Members  of  —  (for  normal  form  of  members). 


An  example  illustrates  the  effect  the  display  mode  has  on  the  result.  Suppose  the  LNF 
program  to  be  run  is: 

TL  [1,(+  1  2),.,1,(X  2  2)]. 

In  lazy-normal  form  mode  the  result  displayed  is: 

[(+  1  2),.,1,(X  2  2)], 

in  normal  form  mode  the  result  displayed  is: 

[3, ..1,4], 

and  if  the  display  mode  is  normal  form  of  members,  the  following  result  is  displayed: 


Display  prints  the  normal  form  of  an  LNF-wff  by,  upon  receiving  an  LNF-wff: 


in  lazy-normal  form,  first  printing  a,  then  (recursively)  calling  (Display 


(LNF-of-wff  ))  for  each  »,  1<«  Thus,  even  for  LNF-wffs  which  have  no  normal 

form,  some  output  may  be  generated. 


Observe  that  the  display  routine  ensugars  lists  before  displaying  them  —  i.e.  [1,2,3]  is 
displayed  rather  than  PAIR  1  (PAIR  2  (PAIR  3  [  ])).  The  display  routine  also  knows 
about  one  other  type  of  construction-  the  line.  A  line  is  construction  of  the  form: 


LINE  (VEC  xo  Xo)  (VEC  x,  yj. 


Lines  are  displayed  by  drawing  the  line  from  point  <Xo,y9>  to  <Xj,yj>  on  the  screen 
If  in  normal  form  of  members  mode,  a  picture  may  be  represented  by  a  list  of  lines.  A 
functional  geometry  program  has  been  implemented  in  LNF  and  is  displayed  in  Appen¬ 
dix  C.  The  program  is  capable  of  creating  an  M.C.  Escher  print  (following  [Hender¬ 
son  1982])  and  producing  “fractalized”  pictures  from  existing  pictures.  The  beauty  of 
these  programs  is  that  the  drawings  are  not  side  effects  but  normal-forms  of  their  (very 
high  level)  description! 


The  routine  Display  is  also  capable  of  printing  cyclic  LNF-wffs  of  any  kind.  When 
displaying  a  non-list  and  Display  encounters  a  cycle,  it  gives  the  LNF-wff  (whose  root  it 
has  seen  before)  a  name  and  prints  the  name  instead  of  the  LNF-wff.  When  displaying  a 
list,  however,  a  name  is  not  ascribed  to  the  LNF-wff  until  the  LNF-wff  is  seen  for  the 
third  time,  thus  giving  the  user  a  better  feeling  for  structure. 


For  example,  the  LNF-expression: 

?x  whererec  [?x»?y]  =  [[1  •i’y] •  [2»?x]] 


which  has  the  lazy-normal  form: 

PAIR  1  (ARG  2  (APP-TO-ARGS  2  (B  (C'  PAIR  (PAIR  1))  (PAIR  2)) 
is  displayed  (when  in  lazy-normal  form  mode)  as: 
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[I*(ARG  2  (APP-TO-ARGS  2  (B  (C  PAIR  (PAIR  1))  (PAIR  2))  E2023)] 
but  when  in  normal-form  mode,  is  displayed  as: 

[1,2,1,2*P4825]. 

The  names  E2023  (E  for  Expression)  and  P4825  (P  for  Pair)  are  the  system  given  names 
to  the  cyclic  structures. 

Functions  and  unknowns  as  well  as  constructions  are  displayed.  A  displayed  function  is 
just  its  linearized  compiled  code.  For  example,  the  squaring  function: 

X  (?n)  {X  ?n  ?n) 

is  displayed  as: 

W  X. 

Unknowns  are  displayed,  simply,  as  linearized  LNF-wffs. 


3.6.  Summary 

L.MF’s  experimental  implementation  has  been  described  in  fairly  fine  detail  in  this 
chapter.  Special  emphasis  was  placed  on  the  compiler  and  the  runtime  system.  The 
user  interface  to  the  system  was  only  hinted  at.  Appendix  D  contains  a  recorded  LNF 
session  to  give  interested  readers  a  feel  for  what  it’s  like  to  interact  with  LNF. 

Chapter  4  contains  brief  reviews  of  other  work  in  this  area,  some  comments  on  the  rela¬ 
tionship  between  this  work  and  the  author’s,  and  some  of  the  author’s  plans  for  the 
future  of  LNF. 
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Chapter  4 

Summary,  Related  Work,  and  Future  Plans 
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The  author’s  work  —  having  been  detailed  in  chapters  1,  2.  and  3  ■ —  is  now  summar¬ 
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ized.  In  the  section  which  summarizes  LNF's  implementation,  brief  discussions  of  other 
researchers’  alternate  approaches  to  compilation  and  runtime  system  organization  are  in¬ 
terspersed.  Some  of  the  author’s  plans  for  the  future  of  the  LNF  language  and  its  imple¬ 
mentation  have  also  been  integrated  into  this  synopsis. 


4.1 .  Formal  Aspects 

Chapters  1  and  2  discuss  the  formal  underpinnings  of  the  LNF  language.  The  content  of 
these  chapters  is  summarized  in  this  section. 


Following  the  presentation  of  two  of  the  more  famous  reduction  calculi:  the  X-calculus 
([Church  1941])  and  the  SKI-calculus  ([Schonfinkel  1924]),  the  new  concept  of  lazy- 
normal  form  is  defined  The  concept  of  lazy-normal  form  in  the  SKl-calculus  Ls  related 
to  C.P.  Wadsworth’s  concept  of  head-normal  form  ([Wad.sworth  1971])  in  the  X-caiculus 
It  IS  demonstrated  (see  Theorem  1,8)  that  an  SKI-wff  in  lazy-normal  form  is  an  '’outline  " 
of  tlm  wff's  no’-rnal  form  (if  it  exists)  —  i.e.  its  normal  form  will  have  the  same  initial 
:vtom  and  the  same  number  of  arguments.  Theorem  l.S  also  implies  that  an  SKI-wff'.s 
nmnuil  form  may  be  arrived  at  by  first  finding  the  wlFs  lazy-normal  form  and  then 
appiving  ihis  procedure  recursively  to  it.'--  argu men i,'-.  The  im|;lementaticn  make.s  )iea\y 
use  , br-y,h  ijf  these  findiiig.s 

Fhe  idc.i..,  lo’hiiKi  M  Schonlinkers  SKI-r'ulculiis.  (,'  1’  Wadsworth's  grajih  oriented  a-G- 
calculus  ([Wadsworth  1971]).  and  D  A,  burner’s  SASL  implementation  ilriir.ier  197jc]i 
are  combined  with  the  ■'oncept  of  lazy-ne.rmal  fr-rm  to  ('rs'  luce  a  m'w  rieiermir.i.M  i'-  ni 
binator  based  graph  and  machine  ■.sriented  reiiuetion  euleulus  tlie  SKl-Fl-ralciilus  Tins 
calculus  is  equiv.ilerit  in  power  to  the  X-'-alciiliis  et  ah.  hut  is  much  me, re  dir'e-ily  ;uui 
elTiciently  implementable  I'liis  is  due  primarily  t'j  the  siructure  sharing  pir- ■p-erties  of 
the  SK.I-G-wlTs.  Both  garbage  nodes  and  forwarding  arc.-,  (indirection  pointers),  concepts 
that  are  usually  relegated  to  a  calculus’  implementation,  are  giV'.-n  formal  dehnitions  m 
this  calculus. 
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The  SKI-G-calculus  still,  however,  is  an  inefficient  model  for  a  functional  programming 
language’s  runtime  system  for  the  following  two  reasons.  Translating  (closed)  X-wffs  into 
SKI-G-wffs  (via  a  modified  Schonfinkel  abstraction  algorithm)  creates  graphs  of  unac¬ 
ceptable  size.  Also,  since  the  SKI-G-ca»culus  is  pure  (i.e.  free  of  numeric  constants, 
numeric  operators,  conditional  expressions,  etc.),  these  familiar  programming  constructs 
must  be  represented  in  the  calculus.  The  first  problem  is  solved  by  using  a  different 
abstraction  algorithm  —  one  which  produces  much  smaller  SKI-G-wffs.  This  algorithm 
is  based  on  the  work  presented  in  [Curry  1958],  [Turner  1979a],  and  [Turner  1984a].  To 
solve  the  representation  problem,  new  functors  are  defined  (via  new  reduction  rules)  and 
a  new  type  of  atom  is  introduced:  the  constructor.  The  resulting  calculus  is  called  the 
LNF-calculus.  It  is  this  calculus  upon  which  LNF’s  runtime  system  is  based. 


4.2.  LNF’s  Impleinentation 


The  LNF  language  and  its  experimental  implementation  are  detailed  in  Chapter  3.  This 
section  summarizes  that  implementation,  discusses  alternate  methods  for  compiling  and 
running  functional  programs,  and  presents  some  future  plans  for  the  implementation. 


4.2.1.  Compilation 

The  LNF  language  is  a  superset  of  the  language  of  linearized  LNF-wffs.  In  addition  to 
the  constructions,  functions,  and  unknowns  (linearized  LNF-wffs,  also  called  simple 
expressions)  which  are  built  from  the  atomic  expressions  via  combination,  the  LNF 
language  includes:  lambda  expressions,  expressions  having  auxiliary  declarations,  list 
expressions,  and  conditional  expressions.  Lambda  expressions  may  have  bound  expres¬ 
sions  as  formal  parameters.  Functions  may  be  defined  via  order  independent  equations 
anywhere  declarations  are  permitted.  List  expressions  include  both  of  the  high  level 
expression  types  which  were  introduced  in  D.A.  Turner’s  KRC  language  (pTurner  1982a] 
and  [Turner  1982b]):  arithmetic  sequences  and  ZF  Expressions.  Conditional  expressions 
include  case  expressions  having  order  independent  cases.  All  LNF  expressions  have  sim¬ 
ple  LNF  expression  (linearized  LNF-wff)  equivalents.  The  LNF  compiler  automates  the 
transformation  of  LNF  expressions  into  simple  expressions  for  the  user. 

The  compiler’s  main  job  is  the  elimination  of  bound  expressions  in  favor  of  variable-free 
expressions.  It  accomplishes  this  via  a  generalized  abstraction  algorithm  which,  at  its 
core,  contains  the  Schonfinkel-Curry-Turner-Scheevel  abstraction  algorithm 
([Turner  1984a]).  Other  FP  language  implementation  projects  which  base  their  compiler 
on  this  abstraction  algorithm  include:  D.A.  Turner’s  SASL  and  Miranda  languages 
([Turner  1979c],  [Turner  1984a],  and  [Turner  1984b]),  Cambridge  University’s  SKIM 
processor  and  its  successor  SKIM  II  ([Clarke  1980]  and  [Stoye  1984]),  Burroughs 
Corporation’s  ARC-SASL  language  ([Richards  1984]),  and  Yale  University’s  ALFL 
language  ([Hudak  1984a],  [Hudak  1984b],  and  [Hudak  1984c]). 

Two  similar  FP  language  compilation  algorithms,  both  different  from  the  Schonfinkel  et 
al.  algorithm,  are  presented  next.  The  first  was  developed  by  the  Programming  Metho¬ 
dology  Group  at  Chalmers  University  for  the  language  Lazy  ML  ([Augustsson  1984a], 
[Augustsson  1984b],  [Johnsson  1984],  [Kieburtz  1984],  [Johnsson  1983],  and 
[Johnsson  1981b])  and  is  called  “lambda  lifting”.  The  other  compilation  algorithm  was 
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devised  at  Oxford  University  by  R  J  M  Hughes  ([Hughes  1982a]  and  [Hughes  1982b]) 
and  is  called  “compilation  via  super-comhinators“  Both  algorithms  translate  closed 
expressions  involving  abstractions.  LET,  and  LETREC  expressions  into  a  set  of  reduc¬ 
tion  rules  (each  of  which  is  independent Iv  eompilaljle  to  a  fixed  program  ana  defines  a 
combinator  to  be  used  to  reduce  this  one  program)  and  an  expression  built  up 
exclusively  from  atoms  (constants  and  these  tailored  combinators)  via  combination. 


The  basic  idea  behind  the  lambda  lifting  and  stiper-combinator  approaches  is  to  lift  out 
to  the  outermost  level  all  abstractions  inside  an  expression.  However,  only  closed 
abstractions  may  be  “moved  outside'’  without  modification.  For  example,  it  is  clear  that 
the  expression: 


addl  ((X  X  (*  X  x))  30), 

containing  an  interior  closed  abstraction,  is  ecjuivalent  to  the  expression; 
(X  f  (addl  (f  30)))  (X  x  (*  x  x)) 


containing  no  interior  abstractions.  The  second  expression  may  be  viewed  as  the  (single- 
ton)  set  of  reduction  rules;  {f  x  =  *  x  x}  and  the  abstraction-free  combination: 
(addl  (f  30)).  Before  abstractions  containing  free  variables  may  be  “moved  outside  " 
they  must  be  “closed  up’’.  This  process  of  closing  up  such  abstractions  is  where  the  two 
methods  (lambda  lifting  and  super-combinators)  part  ways.  The  lambda  lifting  approach 
closes  up  an  abstraction  containing  free  occurrence(s)  of  a  variable  v  by  passing  v  to  it 
as  argument  and  also  adding  v  as  a  formal  parameter.  For  example,  the  abstraction; 


X  y  (+  X  x), 

containing  free  occurrences  of  the  variable  x  becomes  the  combination  (containing  only  a 
closed  abstraction); 

(X  x  (X  y  (4-  X  x)))  x. 

The  super-combinator  approach  specifies  that  the  abstraction: 

X  y  (-f-  X  x) 


be  transformed  to  this  combination: 


(X  s  (X  y  s))  (-f  X  x). 

The  difference,  in  general,  is  the  following.  Lambda  lifting  always  abstracts  away  vari¬ 
ables  (the  minimal  free  expressions)  from  the  abstraction.  The  super-combinator 
approach  abstracts  away  the  maximal  free  expressions  from  the  abstraction.  Recall  from 
Chapter  I  (in  the  discussion  of  Wadsworth’s  X-G-calculus)  that,  sometimes,  before  .■^orne 
.'3-contractions  could  be  performed,  .some  parts  of  the  operator  (the  ab.straction )  had  to 
be  copied.  The  parts  that  did  not  have  to  be  copied  were  the  abstraction’s  maximal  free 
expressions  Arvind,  in  [Arvind  1984],  points  out  that,  in  essence.  Hughes'  super- 
combinator  abstraction  algorithm  is  doing  at  compile  time  what  Wadsworth's  interpreter 
IS  doing  at  run  time.  The  super-combinator  compulation  algorithm,  by  movi  g  constant 
expressions  outside  of  the  bodies  of  abstractions,  achieves  full  lazme.ss.  The  lambda  lift¬ 
ing  approach  is  merely  lazy. 


.\fter  lambda  lifting  (or  compilation  to  super-combinators),  code  must  be  generated  from 
the  set  of  reduction  rules  and  the  abstraction-free  combination.  Flach  reduction  rule  is 
compiled  separately  into  a  fixed  program  closely  resembling  the  (hand-coded)  functor 
specific  reduction  routines  in  the  LNF  runtime  system.  The  abstraction-free 
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combination  is  then  reduced,  in  a  runtime  system  organized  along  similar  lines  as  LNF’s, 
with  the  compiled  reduction  rules  playing  the  part  of  the  LNF’s  functor  specific  reduc¬ 
tion  routines. 


4.2.2.  The  Runtime  System 

LNF’s  runtime  system  makes  use  of  left  ancestor  stacks  and  hand-coded  functor  specific 
reduction  routines.  D.A.  Turner’s  SASL  and  L.  Augustsson’s  and  T.  Johnsson’s  Lazy 
ML  projects  both  employ  similar  organizations.  The  SKDvI,  SKIN!  II,  Miranda,  and 
■ARC-SASL  projects  use  a  scheme  called  “pointer  reversal”  in  place  of  left  ancestor 
stacks  —  in  which  the  pointers  along  the  left  spine  of  the  wfF  are  reversed  as  they  are 
encountered.  Using  the  “pointer  reversal”  technique,  the  space  taken  up  by  the  left 
ancestor  stack  is  saved  as  this  method  requires  only  two  registers  —  one  to  point  to  the 
wff’s  initial  atom  and  one  to  point  at  the  chain  of  reversed  pointers.  See  the  example 
below  for  a  comparison  of  the  two  representations. 


Left  Ancestor  Stack  and  Pointer  Reversal  Representations 

Figure  4.1 

D..A..  Turner  credits,  in  [Turner  IfiS-Ia],  himself,  A.  Norman  (SKIM  and  SKIM  II),  and 
M.  Scheevel  (ARC-SASL)  with  independently  discovering  this  method.  The  author  plans 
an  experimental  LNF  implementation  which  u.ses  pointer  reversal  in  order  to  compare  its 
performance  with  the  left  ancestor  stack  representation  method. 

The  SKIM  II  runtime  system  performs  some  time  and  space  saving  optimizations,  one  of 
which  has  already  been  incorporated  into  the  LNF  system  After  comparing  two  struc¬ 
tures  for  equality  (reducing  a  wfT  of  the  form:  =  X  Y)  and  finding  them  equal,  SKIM  IPs 
runtime  system  forwards  one  expression  to  the  other.  The  two  benefits  arising  from  this 
operation  are:  (1)  the  cost  of  comparing  the  two  wffs  in  the  future  will  be  minimal,  and 
(2)  many  portions  of  the  forwarded  wtT  may  become  inaccessible  and  therefore  eligible  for 
reclamation.  LNF’s  runtime  system  has  borrowed  this  idea  and  put  it  to  use.  SKIM  IPs 
compiler,  as  mentioned  above,  is  ba.sed  on  the  Schonfinkel-Curry-Turner-Scheevel 
abstraction  algorithm.  Thus,  the  code  if  produces  i.s  similar  to  that  produced  by  the 
L.NF  compiler  —  i.e  LNF-wffs.  The  .SKPM  II  impleinen toes  have  added  an  extra  field  to 
the  data  structures  which  represent  their  grajdis  --  a  one  liit  reference  count  The  bit  is 
turned  on  if  more  than  one  pointer  points  at  the  node  --  i.e.  the  node  is  shared.  They 
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Figure  4.3 


In  the  above  example  all  of  the  reference  count  bits  are  off. 
[Stove  1984],  “The  results  of  applying  this  technique  are  spei 
about  seventy  percent  of  wasted  cells  are  immediately  reclaimet 
future  version  of  LNF  will  make  use  of  this  space  saving  scheme 

Other  plans  for  the  future  of  the  LNF  implementation  include  ex 
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type  inference  ([Milner  1978],  [Hindley  1969],  pamas  1982],  and  [Coppo  1980]),  so  as 
(1)  to  detect  errors  at  compile  time  instead  of  waiting  until  runtime,  and  (2)  to  avoid 
the  need  for  runtime  type  checking  now  present  in  many  functor  specific  reduction 
routines. 

relaxing  the  rather  artificial  restrictions  on  the  reduction  rules  defining  functors  like 
+  and  X  which  make  them  deterministic  —  i.e.  allow  them  to  reduce  their  argu¬ 
ments  in  parallel. 
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Appendix  A 

LNF- calculus’  Linearized  Reduction  Rules 


Each  LNF-calculus  reduction  rule  is  displayed  in  this  appendix.  This  presentation  has 
them  partitioned  into  two  groups; 


•  Substantive  Reduction  Rules  and 

•  Contextual  Reduction  Rules. 


A.l.  Substantive  Reduction  Rules 


S  SXYZ-»XZ(YZ) 

K  KXY  — X 
I  IX  —  X 
W  W  X  Y  -  X  Y  Y 
B  B  X  Y  Z  ^  X  (Y  Z) 

C  CXYZ  -^XZ  Y 

S'  S'  WX  Y  Z  -  W  (X  Z)  (Y  Z) 

B'  B'  W  X  Y  Z  —  W  (X  (Y  Z)) 

C'  W  X  Y  Z  —  W  (X  Z)  Y 


c 


NUMBERP  NUMBER?  n  ^  TRUE 

.NPlMBERP  CFN  — ♦  FALSE,  if  CFN  not  a  number 


+ 


+  n  m  -+  n+m 
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X  n  m  -*  nxm 


-  n  m  — ►  n-m 


DIV  DIV  n  m  — *  n  /  m  ,  if  m?^0 

IDIV  IDIV  i  j  — *  integral  quotient  after  i/i  ,  if  j^Q 

REM  REM  n  m  — t-  remainder  after  n/m  ,  if  m^O 

EXP  EXP  i  j  — ►  the  integer  ,  if  .i>0 
EXP  i  j  — ♦  the  float  ,  if  i  <0 
EXP  8  i  -+  the  float  8* 

EXP  n  8  — ►  the  float  n* 

<  <  n  m  — ►  TRUE,  if  n<m 

<  n  m  — ►  FALSE,  if  n>m 

>  >  n  m  — ►  TRUE,  if  n>m 

>  n  m  — ♦  FALSE,  if  n<m 

ADDl  ADDl  n  n4-l 

SUBl  SUBl  n  n-1 

ZEROP  ZEROP  n  —  n=0 


BOOLEANP 


NULLP 


PAIRP 


BOOLEANP  b  -*  TRUE 

BOOLEANP  CFN  —  FALSE,  if  CFN  not  a  boolean 

NOT  TRUE  ->  FALSE 
NOT  FALSE  -<■  TRUE 

OR  TRUE  Y  —  TRUE 
OR  FALSE  b  —  b 

AND  FALSE  Y  -*  FALSE 
AND  TRUE  b  b 

HD  (PAIR  X  Y)  ^  X 

TL  (PAIR  X  Y)  —  Y 

NULLP  [  ]  —  TRUE 

NULLP  CFN  —  FALSE,  if  CFN^[  ] 

PAIRP  (PAIR  X  Y1  -  TRUE 

PAIRP  CFN  —  F.ALSE,  if  CFN  not  a  pair 
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NTH  NTH  1  (PAIR  X  Y)  —  X 

NTH  i  (PAIR  X  YI  —  NTH  M  Y,  if 

APPEND  APPEND  [][]  —  [] 

APPEND  [  ]  P  -  P 

APPEND  (PAIR  X  Y)  Z  —  PAIR  X  (APPEND  Y  Z) 

INTERLEAVE  INTERLEAVE [ ] P  -  P 
INTERLEAVE  P  [  ]  —  P 
INTERLEAVE  (  PAIR  X  Y)  P  - 
PAIR  X  (INTERLEAVE  P  Y) 

FLATMAP  FLATM\P  X  [  ]  -  [  ] 

FLATMAP  X  (PAIR  Y  Z)  — 

INTERLEAVE  (X  Y)  (FLAT.VUP  X  Z) 

ENUMERATE  ENUMERATE  X  —  TURN  [  ]  X 

TURN  TURN  X  [  ]  -  UP  X  [  ]  [  ] 

TURN  X  (PAIR  Y  Z)  ^  UP  (PAIR  Y  X)  [  j  Z 

UP  UP  [  ]  X  Y  —  DOWN  X  [  ]  Y 

UP  (PAIR  [  ]  X)  Y  Z  UP  X  Y  Z 
UP  (PAIR  (PAIR  Xi  Xo)  Y)  W  Z  - 
PAIR  X,  (UP  Y  (PAIR  Xo  W)  Z) 

DOWN  DOWN  [][](]-[] 

DOWN  [  ]  P  [  ]  -  UP  P  [  ]  [  ] 

DOWN  (PAIR  (PAIR  X,  X.)  Y)  Z  W  - 
PAIR  Xi  (DOWN  Y  (PAIR  Xo  Z)  W) 

DOWN  [  ]  X  (PAIR  [  ]  Y)  —  TURN  X  Y 
DOWN  [  ]  X  (PAIR  (PAIR  Yj  Yo)  Z)  — 

PAIR  Y,  (TURN  (PAIR  Yo  X)  Z) 

MAP  MAP  X  [  ]  ^  [  ] 

MAP  X  (PAIR  Y  Z)  —  PAIR  (X  Y)  (MAP  X  Z) 

MEMBER  MEMBER  [  ]  X  —  FALSE 
MEMBER  (PAIR  X  Y)  Z  — 

IF  (=  X  Z)  TRUE  (MEMBER  Y  Z) 

COLLECT  COLLECT  [  ]  X  Y  Y 

COLLECT  (PAIR  XY)WZ- 
W  X  (COLLECT  YWZ) 

FILTER  FILTER  X[]  —  [] 

FILTER  X  (PAIR  Y  Z)  - 
IF  (X  Y)  (PAIR  Y  (FILTER  X  Z))  (FILTER  X  Z) 


REM-DUPS  REM-DUPS  X  REM-DUPS'  X  [  ] 
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REM-DUPS' 


REM-DUPS'  []X-X 

REM-DUPS'  (PAIR  X  Y)  Z  ^  IF  (MEMBER  Z  X) 
(REM-DUPS'  Y  Z)  (PAIR  X  (REM-DUPS'  Y  Z)) 

FB  n  m  — ►  PAIR  n  (FB'  n-f-m  m),  if  mT^O 
FB  n  m  — ►  PAIR  n  (PAIR  n  ...),  if  m=0 

FB'  n  m  -+  PAIR  n  (FB'  n-t-m  m) 


FBT  FBT  n  m  o  — f  PAIR  n  (FBT'  n-t-m  m  o), 
if  (m>0  and  n<o)  or  (m<0  and  n>o) 

FBT  n  m  o  — »  [  ], 

if  (m>0  and  n>o)  or  (m<0  and  n<o) 

FBT  n  m  o  — ►  PAIR  n  (PAIR  n  ...),  if  m=0 

FBT'  FBT'  n  m  o  —  PAIR  n  (FBT'  n-f-m  m  o), 
if  (m>0  and  n<o)  or  (m<0  and  n>ol 
FBT'  n  m  o  —  [], 

if  (m>0  and  n>o)  or  (m<0  and  [n<o) 

Y  YX-X(X(X...)) 

=  =  cfj  cf2  — ►  cfi=cf2 

=  CFNi  CFNj  ^ 

AND  (=  (OPERATOR  CFNj)  (OPERATOR  CFNj)) 
(=  (OPERAND  CFNi)  (OPERAND  CFNj)) 


L  cf  CFN 
L  CFN  cf 
L  cfj  cf2  — • 


TRUE,  if  r 
FALSE,  if 


iicatlv  less 


L  CFNi  CFN2  ^ 

OR  (L  (OPERATOR  CFNi)  (OPERATOR  CFN.)) 
(AND 

(=  (OPERATOR  CFNi)  (OPERATOR  CFN.)) 
(L  (OPERAND  CFNi)  (OPERAND  CFN.))), 
if  CFN,  and  CFNn  are  both  combinations 

IF  IF  TRUE  X  Y  ^  X 
IF  FALSE  X  Y  ->  Y 

UNKNOWNP  UNKNOWNP  CFN  ^  FALSE 
UNKNOWNP  IRU  ^  TRUE 

FUNCTIONP  FUNCTIONP  FN  ^  TRUE 
FUNCTIONP  CN  ->  FALSE 

FUNCTOR  FUNCTOR  FN  —  INITIAL-ATOMfFN] 


L.T  m> 

•  • 


v’  ■  .  .V 

■  v  ■  .■'•.S'' 

•  • 

I  ••  •  ■  ^ 


/• 


•  “  « •  • '  •  •  ■ 
/.'••.'•'.VN'.' 

.'v'' 


Page  ISI 


CONSTRICTIONT 


CONSTRUCTIONP  CN  —  TRUE 
CONSTRUCTIONT  FN  —  FALSE 


CONSTRUCTOR  CONSTR I'CTOl^  ic  X, 


X„  i  -  c 


ARITY  AREIO-  FN  - 

ARnO'[lNTriAl.-ATO\  1[FN]]  -  NUM- AR(;s;FN] 

NUM-ARGS  NUM- ARCS  CFN  --  .\UM-ARGS[CFN] 

ARG  ARG  i  CFN  ->  ARGfi.CFN] 

,  if  I  <  i <  N LA'f-  A  RGS  [CFN] 

ATOMP  ATOMP  CFN  NUM-ARGS[CFN]=0 

COMBINATION?  COMBINATION?  CFN  —  NUM-ARGS[CFN]  >0 

OPERATOR  OPERATOR  CFN  -  0?ERATOR[CFN] 

OPERAND  OPERAND  CFN  -  OPERAND fCFNl 


A-S-E 


A-S-E' 


A-S-E  c  i  X  Y  (c  Z,  Z,  )  -^  X 
A-S-E  Cl  iXY  (c.,  Z,  Z^  I-^Y, 
if  c,?^Co  or  i^\ 

A-S-E  c  i  X  Y  FN  —  Y 

A-S-E'  c  i  X  Y  (c  Z,  Z, )  -  X 
A-S-E'  Cl  i  X  Y  (c.,  Zi  Z^ )  —  Y, 
if  Ci=^c.^  or  i=?^i 
A-S-E'  c  iX  YFN  Y 


A-S  c  i  X  (c  Z, 


A-S'  c  i  X  (c  Z, 


Z,)-^XZi  ■  Z. 


APP-TO-ARGS  APP-TO-ARGS  i  X  Y  X  (ARG  1  Y)  .  |ARG  i  Y) 


A. 2.  Contextual  Reduction  Rules 


NUMBER?  NUMBER?  RDU  --  NUMBER?  IMR 


RDU  Y 
-  n  RDU 

y  RDU  Y 
X  n  RDU 


-  IMR  Y 

-  n  IMR 

y  IMR  Y 
X  n  IMR 
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-  RDU  Y  ->  -  IMR  Y 

-  n  RDU  ^  -  n  IMR 


DIV  DIV  RDU  Y  ->  DIV  IMR  Y 
DIV  n  RDU  DIV  n  IMR 

IDIV  IDIV  RDU  Y  -*  IDIV  IMR  Y 
IDIV  i  RDU  ^  IDIV  i  IMR 

REM  REM  RDU  Y  —  REM  IMR  Y 
REM  n  RDU  ->  REM  n  IMR 

EXP  EXP  RDU  Y  ^  EXP  IMR  Y 
EXP  n  RDU  —  EXP  n  IMR 

<  <  RDU  Y  ^  <  IMR  Y 

<  n  RDU  —  r  RDU  IMR 

-  RDU  Y  IMR  Y 

>  n  RDU  n  IMR 

ADDl  ADDl  RDU  ADDl  IMR 

SUBl  SUBl  RDU  -  SUBl  IMR 

ZEROP  ZEROP  RDU  -  ZEROP  IMR 

BOOLEANP  BOOLEANP  RDU  ^  BOOLEANP  EMR 

NOT  NOT  RDU  ^  NOT  IMR 

OR  OR  FALSE  RDU  OR  FALSE  IMR 
OR  RDU  Y  ^  OR  IMR  Y 

AND  AND  TRUE  RDU  -  AND  TRUE  IMR 
AND  RDU  Y  AND  IMR  Y 

HD  HD  RDU  -  HD  IMR 

TL  TL  RDU  -  TL  IMR 

NULLP  NULLP  RDU  -  NULLP  IMR 

PAIRP  PAIRP  RDU  -  PAIRP  IMR 

NTH  NTH  RDU  Y  NTH  IMR  Y 
NTH  i  RDU  NTH  i  IMR,  if 


APPEND  APPEND  RDU  Y  APPEND  IMR  Y 
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INTERLEAVE  INTERLEAVE  RDU  Y  —  INTERLEAVE  IMR  Y 
INTERLEAVE  P  RDU  —  INTERLEAVE  P  IMR 

FLATM\P  FLATMAP  X  RDU  —  FLATMAP  X  IMR 

TURN  TURN  X  RDU  —  TURN  X  IMR 

UP  UP  (PAIR  RDU  X)  Y  Z  —  UP  (PAIR  IMR  Xi  Y  Z 
UP  RDU  Y  Z  I  P  IMR  Y  Z 

DOWN  DOWN  [  ]  RDU  [  ]  -  DOWN  [  ]  IMR  [  ] 

DOWN  [  ]  Y  RDU  —  DOWN  [  ]  Y  IMR 
DOWN  [  ]  Y  (PAIR  RDU  W)  ^ 

DOWN  [  ]  Y  (PAIR  IMR  Wj 
DOWN  (PAIR  RDU  X)  Y  Z  - 
DOWN  (PAIR  IMR  X)  Y  Z 
DOWN  RDU  Y  Z  ^  DOWN  IMR  Y  Z 

MAP  MAP  X  RDU  —  MAP  X  IMR 
MEMBER  MEMBER  RDU  Y  ^  MEMBER  IMR  Y 
COLLECT  COLLECT  RDU  Y  Z  -  COLLECT  EMR  Y  Z 
FILTER  FILTER  X  RDU  FILTER  X  IMR 
REM-DUPS'  REM-DUPS'  RDU  Y  -  REM-DUPS'  IMR  Y 

FB  FB  RDU  Y  —  FB  IMR  Y 
FB  n  RDU  —  FB  n  IMR 

FBT  FBT  RDU  Y  Z  -  FBT  IMR  Y  Z 
FBT  n  RDU  Z  -  FBT  n  IMR  Z 
FBT  n  m  RDU  —  FBT  n  m  IMR 

=  =  RDU  Y  -*  =  IMR  Y 

==  CFN  RDU  —  CFN  IMR 

L  L  RDU  Y  L  IMR  Y 

L  CFN  RDU  —  L  CFN  IMR 

IF  IF  RDU  X  Y  —  IF  IMR  X  Y 
F  NKNOWNP  UNKNOWNP  RDU  —  UNKNOWNP  IMR 
FUNCTIONP  FUN'CTIONP  RDU  —  FUNCTIONP  IMR 
FUNCTOR  FUNCTOR  RDU  -  FUNCTOR  IMR 
CONSTRUCTIONP  CONSTRUCTIONP  RDU  —  CONSTRUCTIONP  IMR 
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Appendix  B 

BNF-like  Description  of  LNF  Expressions 


Sprinkled  throughout  the  formal  description  of  the  language  are  examples  of  well-formed 
LNF-exps.  The  description  makes  use  of  the  following  conventions: 

•  UPPERCASE  names  denote  syntactic  categories 

•  The  symbol  U  denotes  category  union. 

•  Lowercase  names  are  concrete  syntax. 

•  <..>  denotes  an  optional  item. 

•  <..>*  denotes  0  or  more  items. 

•  <..>+  denotes  1  or  more  items. 

LNF-EXP  SIMPLE-EXP  U  LAMBDA-EXP  U 
WITH-AUX-DECL-EXP  U  LIST-EXP  U  CONDITIONAL-EXP 

SIMPLE-EXP  ATOM  U  COMBINATION  U  (LNF-EXP) 

ATOM  CONSTRUCTOR  U  FUNCTOR  U  VARIABLE 
CONSTRUCTOR  :;=  ZETALISP-SYMBOL 
COMBINATION  ::=  LNF-EXP  LNF-EXP 

All  VARIABLE  occurrences  must  be  bound  occurrences 
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WITH-AUX-DECL-EXP  ;:=  WHERE-EXP  U  WHEREREC-EXP  U  \VHERE*-EXP 
VVHERE-EXP  ::=  LNF-EXP  where  DECLARATION  <&  DECLARATION > * 
WHEREREC-EXP  ::=  LNF-EXP  whererec  DECLARATION  <&  DECLARATION  >  * 
\VHERE*-EXP  ::=  LNF-EXP  where*  DECLARATION  <,  DECLARATION > * 
DECL.ARATION  ::=  SIMPLE-DECLARATION  l  FUNCTION-DECLARATION 
SIMPLE-DECLARATION  \'ARIABLE  -  LNF-EXP  j  I CONSTRUCTED-BE ;  =  !AF 
FUNCTION-DECLARATION  FUNCTION-EON  ^  EQUATION-SET 
FUNCTION-EQN  ZETALISP-ATOM  ^  BE  >-  =  LNF-EXP 
EQUATION-SET  ;:=  {FUNCTION-EQN  ;  <  FUNCTION-EQN 

Each  FUNCTION-EQN  in  the  set  must  be  iieadt-d  by  tlie  same  ZETALISP-ATOM 

EMUMPLES:  (of  WHERE,  WHEREREC.  ana  WHERE*  expressions) 

f—  "Cx  ?y)  where  ’x  =  3  &  '"y  =  -1 

’pi  whererec  ^pl  =  [l«’p2]  &  ?p2  =  [2»’pl] 

(X  ?x  ?y)  where*  ?x  =  3  :  ’y  =  (factorial  ?x) 

(thrice  double  5)  where 
thrice  ?f  ?x  =  ?f  (?f  (?f  ’x))  & 
double  ?x  =  X  2  ?x 

(-h  ?x  ?y)  where  (tree  ’x  ?  ?y)  =  some-tree 

(factorial  10)  whererec 
factorial  'i’n  =  (if  (zerop  ’n)  then  1 

else  (  X  ’n  (factorial  (subl 

(app  [1,2,3]  list)  whererec 
{app  [  ]  '^z  =  '^z  1 
app  [?x»?r]  ’z  =  [’x^japp  ’r  ’?,)]} 


LIST-EXP  EXPLICIT-LIST-EXP  U  ARITH-SEQ-EXP  u  IMPLICIT-LIST-EXP 
EXPLICIT-LIST-EXP  --  [  ]  U  [LNF-EXP-  , LNF-EXP >*<  •LNF-EXP  :>] 
ARITH-SEQ-EXP  [LNF-EXP  .  , LNF-EXP  <  ,LNF-EXP>] 
IMPLICIT-LIST-EXP  -  FOR-EACH-EXP  u  TURNER-LIST-EXP 
TURNER-LIST-EXP  :=  [LNF-EXP;GENERATOR<  <  ;GUARD><  ;CENER  A'l'OR  .  ■ 
FOR-EACH-EXP  for-each  GENERATOR  FOR-EACH-CLAUSE 
FOR-EACH-CLAUSE  :;=  and-for-each  GENERATOR  FOR-EACH-CLAUSE  U 
such-that  GUARD  FOR-EACH-CLAUSE  ij 
instantiate  LNF-EXP 
GUARD  LNF-EXP 
GENERATOR  BE€LNF-EXP 
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EXWIPLES:  (of  CONDITIONAL  expressions) 
if  (odd  num)  2  3 
if  (odd  num)  then  2  3 
if  (odd  num)  2  else  3 
if  (odd  num''  the'.’  2  else  3 
case  a-tree  in 

(tree  ?left  ?root  ?right)  — *■  (append  (leaves  ?left)  [’root ‘(leaves  ’right)]) 
nulltree  — *■  [  ] 
endcase 

case  (leaves  big- tree)  in 
[?«?rest]  — ►  (addl  (len  ?rest))  | 

[]-o 

endcase 


;;;  Returns  absolute  value  of  x 

(define  (abs  ?x)  (if  (<  0  ?x)  ?x  (minus  ?x))) 

;;;  Returns  n+m  modulo  mod 
(define  (plus-mod  ?mod  ?n  ?m) 

(rem  (-1-  ?n  ?m)  ?mod)) 

;;;  Places  first  element  of  nonempty  list  at  the  rear, 
(define  (rotate  [?x»?r]) 

(append  ?r  [?x])) 

;;;  Exchanges  first  and  second  elements  of  a  list, 
(define  (exchange  [?xl,’x2«?r]) 

[^x2,^xl.?r]) 

;;;  Reverses  a  nonempty  list. 

(define  (reverse  [?x*?r]) 

(if  (nullp  ?r) 
then  [?x] 

else  (append  (reverse  ’r)  [’x]))) 


C.2.  Closine  Ui 


Sets”  Under  Laws 


These  next  three  definitions  are  LNF  versions  of  functions 
written  by  D.A.  Turner,  They  appear  in  [Turner  1981a]. 

,,,  Returns  a  set  (represented  as  a  list  w/o  duplicates),  which 
is  ’set  closed  up  under  the  operations  (LNF  functions)  in  the 
;;;  list  ’laws. 

(define  (closure-under-laws  ’laws  ’set) 

(append  ’set  (closurel  ’laws  ’set  ’set))) 

Returns  the  “set”  which  is  ’set2  closed  under  ?laws 
minus  the  “set”  ?setl, 

(define  (closurel  ’laws  ’setl  ’set2) 

(closure2 


mk.set  removes  duplicate  elements  from  a  list 
(mkset  [?a  [  ’law  €  ?laws  , 

?a  G  (map  ’law  ’set2)  ; 

(not  (member  ?setl  '(a))]))) 
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;;;  Returns  the  “set”  which  is  ?set2  closed  under  ‘’laws 
;;;  minus  the  “set”  ?setl. 

(define  (closure2  ’laws  ?setl  ?set2) 

(if  (nullp  '’set2) 
then  [  ] 
else  (append 
?set2 

(closurel  ?laws  (append  ’setl  '’set2)  '’set2)))) 

;;;  SOME  INTERESTING  SETS 

The  Naturals  modulo  ?mod  —  defined  as  ihe  s^t  [0]  closed 
;;;  under  the  “successor  modulo  '’mod"  function 
(define  (naturals-modulo-n  '’mod) 

(closure-under-laws  [plus-mod  '’mod  l]  [0]jj 

The  Naturals  —  the  set  [0]  closed  under  the  successor 
;;;  function. 

(define  naturals 

(closure-under-laws  [addl]  [0])) 

;;;  The  Integers  —  the  set  [0]  closed  under  the  successor  and 
;;;  predecessor  functions. 

(define  integers-repl 
(closure-under-laws  [addl,subl]  [0])) 

;;;  The  Integers  (again)  —  the  set  [0]  closed  under  the 
;;;  predecessor  and  the  absolute  value  functions. 

(define  integers-rep2 
(closure-under-laws  [abs,subl]  [0])) 

;;;  The  even  Integers  —  the  set  [0]  closed  under  the 
;;;  “decrement  by  2”  and  the  absolute  value  functions. 

(define  even-integers 

(closure-under-laws  [abs,(X  (’x)  (-  'i’x  2))]  [0])) 

;;;  The  powers  of  ?n  —  the  set  [l]  closed  under  the 
;;;  “multiply  by  ?n”  function. 

(define  (powers-of  ?n) 

(closure-under-laws  [*  '’nj  [l])) 

;;;  .4  STRANGE  set  —  the  set  [[O]]  (whose  only  element  is  a  set) 
;;;  closed  under  the  function  which  closes  sets  under  the 
;;;  “successor  modulo  ?mod”  function. 

(define  (higher-order-example-mod  ?mod) 

(closure-under-laws 

[closure-under-laws  [plus-mod  ?mod  1]] 

[[0]])) 
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;;;  The  set  of  all  permutations  of  ?list. 

(define  (perms  ?list) 

(closure-under-laws  [exchange, rotate, reverse]  plist])) 


C.3.  Geometric  Sequences  and  Series 

Returns  the  geometric  sequence  [a,ax,ax",ax^,...]. 

(define  (g-seq  ?a  ?x) 

(g-seq-from-n  ?a  ?x  0)) 

;;;  Returns  the  geometric  sequence  tail  [ax"  ,ax" 

(define  (g-seq-from-n  ?a  ?x  ?n) 

([(X  ?a  (exp  ?x  ?n))« (g-seq-from-n  ?a  ?x  (addl  ?n))])) 

;;;  Returns  the  infinite  series  corresponding  to  the  given 
;;;  infinite  sequence. 

(define  (series  [?x»?rest]) 

([?x«seriesl  [?x«?rest]])) 

;;;  Helper  function  for  series. 

(define  (seriesl  [?xl,?x2»?rest]) 

([?z»seriesl  [?z«?rest]]  where  ?z  =  (-f  ?xl  ?x2))) 

;;;  Returns  TRUE  when  applied  to  a  convergent  geometric  series, 
(define  (convergent-g-series  [?xl,?x2«?rest]) 

((and  (<  -1  ?x)  (<  ?x  1)) 
where  ?x  =  (div  (-  ?x2  ?xl)  ?xl))) 

;;;  Returns  the  limit  of  a  convergent  geometric  series. 

(define  (limit-g-series  [?xl,?x2»?rest]) 

((div  ?xl  (-  ?x  1)) 
where  ?x  ==  (div  (-  ?x2  ?xl)  ?xl))) 

;;;  Returns  a  pair  [n«x]  where  x  is  the  nth  element  in 

;;;  the  series  and  is  the  first  element  to  be  within  epsilon  of 

;;;  the  series’  limit. 

(define  (first-close-to-limit  ?series  ?epsilon) 

(first-close-to-limitl 

?series 

Tepsilon 

(limit-g-series  ?series) 

0)) 


;;;  Same  as  above  except  that  the  limit  has  already  beer, 

;;;  determined  and  the  first  n  elements  are  not  within  epsilon 
;;;  of  the  limit. 

(define 

(first-close-to-limitl  [?xn-i-l •?rest]  ^epsilon  ’limit  ’n) 

((if  (within-epsilon  ?xn-t-l  ?limit  ’epsilon) 
then  [?n-plus-one«?xn  +  l] 
else  (first-close-to-limitl 
?rest 
?epsilon 
?limit 

?n-plus-one)) 

where  ?n-plus-one  =  (addl  ’n))) 

;;;  Returns  TRUE  iff  xl  is  within  epslion  of  x2. 

(define  (within-epsilon  ?xl  ?x2  ?epsilon) 

((<  (?abs  ?diff)  ?epsilon) 
where  ?difF  =  (-  ?xl  ?x2)  & 

?abs  ?num  =  if  (>  ?num  0)  ?num  (minus  ?num))) 


C.4.  Functional  Geometry 

An  LNF  implementation  of  Peter  Henderson’s  “Functional  Geometry”  ([Hender¬ 
son  1982])  follows.  There  is  one  big  difference  between  Henderson’s  implementation  and 
the  author’s.  For  Henderson,  pictures  are  data  structures,  but  in  the  LNF  implementa¬ 
tion,  pictures  are  functions.  A  picture  is  a  function,  which  when  applied  to  three  argu¬ 
ments,  each  of  which  is  a  vector  of  the  form;  VEC  x  y,  becomes  a  plottable  picture. 
plottable  picture  is  simply  a  list  of  plottable  lines,  each  taking  the  form. 
LINE  (VEC  xO  yO)  (VEC  xl  yi),  LINE  and  \’EC  are  contructors.  The  suite  of  func¬ 
tions  which  implements  these  ideas  follotvs. 

Vector  addition. 

(define  (vec-rvec  (vec  ?x0  ’yO)  (vec  ’xl  ’yl)) 

(vec  (+  ?x0  ?xl)  (+  ’yO  ’yl))) 

;;;  Scalar-vector  multiplication. 

(define  (scalar*vec  ?n  (vec  ?x  ’y)) 

(vec  (X  ?n  ?x)  (X  ?n  ?y))) 

;;;  The  Basic  Functions: 

Implements  PH’s  nil  (the  empty  picture),  i.e  a  function 
;;;  of  arity  3  which,  when  applied,  ignores  its  arguments  and 
returns  the  empty  list. 

(define  (empty-pic  ?  ?  ?)  [  ]) 
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Implements  PH’s:  plol(grid(m,n,s|,a-vec,b-vcc,c-vec) 

(grid  m  n  segs)  — *  picture 

;;;  (grid  m  n  segs  avec  bvec  cvec)  — ♦  plottable-picture 
;;;  NOTE:  plot  is  unnecessary  in  this  implementation. 

(define  (grid  ?m  ?n  ’segments  ?a-vec  ?b-vec  ?c-vec) 

(for-each  (segment  ?x0  ?y0  ?xl  ?yl)  in  ’segments 
instantiate 
(line  (vec+vec  ?a-vec 

(vec+vec  (scalar*vec  (div  ?x0 ’m)  ?b-vec) 
(scalar*vec  (div  ?y0  ’n)  ?c-vec))) 

(vec-f-vec  ?a-vec 

(vec+vec  (scalar*vec  (div  ?xl  ?m)  ?b-vec) 
(scalar*vec  (div  ?yl  ?n)  ?c-vec)))))) 

;;;  Implements  PH’s;  plot(flip(p),a-vec,b-vec,c-vec) 

(flip  picture)  — ►  picture 

;;;  (flip  picture  avec  bvec  cvec)  — ►  plottable-picture 
(define  (flip  ?pic  ?a-vec  ?b-vec  ?c-vec) 

(?pic  (vec+vec  ?a-vec  ?b-vec) 

(scalar*vec  -1  ?b-vec) 

’c-vec)) 

Implements  PH’s:  plot(rot(p),a-vec,b-vec, c-vec) 

;;;  (rot  picture)  — *  picture 

;;;  (rot  picture  avec  bvec  cvec)  — ►  plottable-picture 
(define  (rot  ?pic  ’a-vec  ?b-vec  ?c-vec) 

(?pic  (vec+vec  ’a-vec  ?b-vec) 

?c-vec 

(scalar*vec  -1  ?b-vec))) 

;;;  Implements  PH’s;  plot(overlay(p,q), a-vec, b-vec, c-vec) 

;;;  (overlay  picture  picture)  — ►  picture 

;;;  (overlay  picture  picture  avec  bvec  cvec)  — ►  plottable-picture 
(define  (overlay  ?picl  ?pic2  ?a-vec  ?b-vec  ?c-vec) 

(append  (?picl  ?a-vec  ?b-vec  ?c-vec) 

(?pic2  ?a-vec  ?b-vec  ?c-vec))) 

;;;  Implements  PH’s:  plot(beside(m,n,p,q), a-vec, b-vec, c-vec) 

;;;  (beside  n  m  picture  picture)  — ♦  picture 

;;;  (beside  n  m  picture  picture  avec  bvec  cvec)  — ► 

;;;  plottable-picture 

(define  (beside  ?m  ?n  ?left-pic  ?right-pic  ’a-vec  ’b-vec  ’c-vec) 
((append  (?left-pic  ?a-vec  ?scaled-b-vec  ’c-vec) 

(?right-pic  (vec+vec  ?a-vec  ?scaled-b-vec) 

(scalar*vec  (div  ?n  (+  ?m  rn))  ’b-vec) 

?c-vec)) 

where  ?scaled-b-vec  =  (scalar*vec  (div ’m  (-r  ’m  ’n))  ’b-vec))) 
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;;;  Implements  PH’s:  plot(above(m,n,p,q),a-vec,b-vec,c-vec) 

;;;  (above  n  rn  picture  picture)  — ►  picture 

;;;  (above  n  m  picture  picture  avec  bvec  cvec)  — »  plottable-picture 
(define  (above  ?m  ?n  ?top-pic  ?bot-pic  ?a-vec  ?b-vec  'i’c-vec) 
((append  (?top-pic 

(vec+vec  ?a-vec  ?scaled-c-vec) 

?b-vec 

(scalar*vec  (div  ?m  (+  '’m  ’n))  ?c-vec)) 

(?bot-pic  ?arvec  ’b-vec  ?scaled-c-vec)) 
where  ?scaled-c-vec  =  (scalar*vec  (div  '’n  (—  'J’m  '^n))  '’c-vec))) 


;;  PH’s  quartet 

;;  (quartet  picture  picture  picture  picture) 
define  (quartet  ?pl  ?p2  ?p3  ?p4) 


picture 


(above  1  1  (beside  1  1  ?pl  '’p2)  (beside  1  1  '’p3  ^p4))) 


;;;  PH’s  cycle 

(cycle  picture)  — ►  picture 
(define  (cycle  ?pic) 

((quartet  ?pic 

(rot  ? rot- rot- pic) 

?rot-pic 
?rot- rot-pic) 

where*  ?rot-pic  =  (rot  ?pic)  ; 

?rot-rot-pic  =  (rot  ?rot-pic))) 


;;;  Some  Example  Pictures  From  PH’s  Paper; 


;;;  PH’s  man 
(define  man 
(grid  14  20 
[segment 
segment 
segment 
segment 
segment 
segment 
segment 
segment 
segment 
segment 
segment 
segment 
segment 


6  10  0  10,  segment  0  10  0  12 
0  12  6  12,  segment  6  12  6  14. 

6  14  4  16,  segment  4  16  4  18, 

4  18  6  20,  segment  6  20  8  20, 

8  20  10  18,  segment  10  18  10  16, 
10  16  8  14,  segment  8  14  8  12. 

8  12  10  12,  segment  10  12  10  14, 
10  14  12  14,  segment  12  14  12  10, 
12  10  8  10,  segment  8  10  8  8, 

8  8  10  0,  segment  10  0  8  0, 

8  0  7  4,  segment  7  4  6  0, 

6  0  4  0,  segment  4  0  6  8, 

6  8  6  10])) 


;;;  PH’s  FatBoy 

(define  fatboy  (above  1  1  empty-pic  man)) 
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;;;  PH’s  Boy 

(define  boy  (beside  1  1  fatboy  empty-pic)) 

;;;  Components  Making  up  Escher  Print; 

;;;  The  next  6  pictures  are  the  basic  buiding  blocks  of  the  print. 

PH’s  p,  figure  18  in  paper 
(define  mce-p 
(grid  36  36 

[;;  left  eye 

segment  0  7  6  9,  segment  6  9  0  18,  segment  0  18  0  7, 

;;  line  between  eyes 
segment  13  0  9  9, 

;;  right  eye 

segment  9  12  9  23,  segment  9  23  16  14,  segment  16  14  9  12, 
;;  side  of  head 

segment  24  0  22  9,  segment  22  9  18  18, 
segment  18  18  9  30,  segment  9  30  0  36, 

;;  top  of  tail 

segment  0  36  13  34,  segment  13  34  18  36, 
segment  18  36  26  27,  segment  26  27  36  27, 

;;  line  in  tail 
segment  18  27  36  23, 

;;  bottom  of  tail 

segment  18  18  27  21,  segment  27  21  36  18, 

;;  tiny  line  in  upper  right 
segment  32  36  36  34, 

;;  next  one  down 

segment  27  36  29  34,  segment  29  34  36  32. 

;;  and  the  next 

segment  22  36  26  32,  segment  26  32  36  29. 

;;  first  line  below  tail 

segment  20  14  27  16,  segment  27  16  36  14 
;;  the  next 

segment  22  9  29  11,  segment  29  11  36  9, 

;;  and,  finally,  the  last 

segment  24  0  31  5,  segment  31  5  36  5])) 
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;;;  PH’s  q,  figure  19  in  paper 
(define  mce-q 
(grid  36  36 

[;;  left  side  of  fish 

segment  0  27  7  29,  segment  7  29  II  31, 
segment  11  31  16  34,  segment  16  34  18  36. 

line  in  middle  of  fish 
segment  0  23  16  25, 

;;  left  edge 

segment  0  27  0  36,  segment  0  0  0  18, 

;;  right  side  of  fish 

segment  0  18  9  16,  segment  9  16  13  16, 
segment  13  16  27  22,  segment  27  22  36  36, 
;;  leftmost  line  above  fish 
segment  4  36  7  29, 

;;  next  one 
segment  9  36  11  31, 

;;  rightmost  line  above  fish 
segment  14  36  16  34, 

;;  left  eye 

segment  18  34  25  34,  segment  25  34  20  30, 
segment  20  30  18  34, 

;;  right  eye 

segment  20  27  27  27,  segment  27  27  22  23, 
segment  22  23  20  27, 

;;  right  side  of  tail 

segment  36  36  34  22,  segment  34  22  36  18, 
segment  36  18  29  9,  segment  29  9  27  0, 

;;  three  lines  to  the  right  of  the  tail 
segment  29  0  36  14,  segment  32  0  36  9, 
segment  34  0  36  4, 

;;  line  in  tail 
segment  32  25  23  0, 

;;  four  lines  left  of  tail  (left  to  right) 
segment  5  0  9  11,  segment  9  119  16, 
segment  9  0  13  11,  segment  13  II  13  16. 
segment  14  0  18  13,  segment  18  13  18  18, 
segment  18  0  22  14,  segment  22  14  22  20])) 
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;;;  PH’s  r,  figure  20  in  paper 
(define  mce-r 
(grid  36  36 

[;;  top  of  fish 

segment  24  36  27  28,  segment  27  28  36  18, 

;;  bottom  of  fish 

segment  0  36  4  27,  segment  4  27  10  22, 
segment  10  22  17  18,  segment  17  18  31  14, 
segment  31  14  36  9, 

;;  line  thru  fish 

segment  13  36  25  23,  segment  25  23  36  14. 

;;  lines  above  fish 

segment  27  28  36  36,  segment  29  30  36  23, 
segment  31  32  36  28, segment  33  34  36  32. 

;;  bottom  semi-horizontal  lines 

segment  2  2  8  0,  segment  4  4  18  0,  segment  7  7  18  4. 

segment  18  4  27  0,  segment  10  11  27  7,  segment  27  7  36  0, 

;;  lower  diagonal  li^es 

segment  0  0  17  18,  segment  0  8  10  22, 

segment  0  18  4  27,  segment  0  27  2  32])) 
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;;;  PH’s  s,  figure  21  paper 
(define  mce-s 
(grid  36  36 

[;;  left  fish 

segment  18  36  16  30,  segment  16  30  16  23, 

segment  16  23  16  18,  segment  16  18  18  14. 

segment  18  14  23  9,  segment  23  9  36  0, 

;;  line  in  fish 
segment  23  36  25  23, 

;;  right  fish 

segment  27  36  30  30,  segment  30  30  32  25, 

segment  32  25  34  21,  segment  34  21  36  18, 

;;  right  eye 

segment  29  16  34  18,  segment  34  18  34  11, 
segment  34  11  29  16, 

;;  left  eye 

segment  22  14  27  16,  segment  27  16  27  9, 
segment  27  9  22  14, 

;;  lines  right  of  fish 

segment  30  30  36  32,  segment  32  25  36  27, 
segment  34  2T  36  22, 

;;  bottom  hump 

segment  0  0  9  5,  segment  9  5  17  5,  segment  17  5  36  0, 

;;  next  up 

segment  0  9  4  2,  segment  0  14  16  9, 
segment  0  18  18  14,  segment  0  23  16  18, 
segment  0  28  16  23,  segment  0  32  16  30, 

;;  top  border  lines 

segment  0  36  18  36,  segment  27  36  36  36])) 

;;;  PH’s  t,  figure  22  in  paper 
(define  mce-t 

(quartet  mce-p  mce-q  mce-r  mce-s)) 

;;;  PH’s  u,  figure  23  in  paper 
(define  mce-u 
(cycle  (rot  mce-q))) 

;;;  The  remaining  functions  are  used  to  combine  the  basic  building 
;;;  blocks  into  the  Escher  print. 
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(define  sidel 

(quartet  empty-pic  empty-pic  (rot  mce-t)  mce-t)) 
(define  side2 

(quartet  sidel  sidel  (rot  mce-t)  mce-t)) 
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(define  cornerl 

(quartet  empty-pic  empty-pic  empty-pic  mce-u)) 
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(define  corner2 

(quartet  cornerl  sidel  (rot  sidel)  mce-u)) 

(define  pseudocorner 

(quartet  corner2  side2  (rot  side2)  (rot  mce-t))) 

(define  pseudolimit 
(cycle  pseudocorner)) 

(define  (nonet  ?pl  ?p2  '’p3  ?p4  ?p5  ’p6  ?p7  ?p8  '’p9) 

(above  1  2 

(beside  1  2  ?pl  (beside  1  1  ?p2  '^p3)) 

(above  1  1 

(beside  1  2  'i'p4  (beside  1  1  ''pS  'i’pb)) 

(beside  1  2  'i’pT  (beside  1  1  ’p8  '■’pO))))) 

(define  corner 
((nonet 

corner2  side2  side2 
?rot-side2  mce-u  ?rot-mce-t 
?rot-side2  ?rot-mce-t  (rot  mce-q)) 
where  ?rot-side2  =  (rot  side2)  & 

?rot-mce-t  =  (rot  mce-t))) 

(define  squarelimit 
(cycle  corner)) 

;;;  Entering  “squarelimit  (vec  50  50)  (vec  500  0)  (vec  0  500)” 

at  the  LNF  prompt  “NF  of  Members  ”  produces  the  Escher  print. 

;;;  The  functions  below  “fractaiize”  pictures. 

Given  a  natural  number  n,  a  fractal-function,  and  a  picture, 

;;;  the  next  function  applies  the  fractal-function  n  times  to 
;;;  the  picture  (actually,  it  is  applied  to  each  of  the  picture’s 
;;;  lines)  —  producing  a  fractalized  picture. 


(define  (fractaiize  ?n  ?fractal-fn  ?pic  ’a-vec  ’i’b-vec  ’c-vec) 
((if  (zerop  ?n) 

then  ?plottable-picture 
else  (fractalizel 
(subl  ?n) 

?fractal-fn 

(flatmap  ?fractal-fn  ?plottable-picture))) 
where  ?plottable-picture  =  (?pic  ?a-vec  ’b-vec  '^c-vec))) 
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;;;  A  helper  function  of  fractalize. 

(define  (fractalizel  ?n  ?fractal-fn  ?plottable-pic) 

(if  (zerop  ?n) 

then  ?plottable-pic 
else  (fractalizel 
(subl  ?n) 

?fractal-fn 

(flatmap  ?fractal-fn  ?pIottable-pic)))) 

;;;  A  not  so  terrible  fractal  function. 

(define  (fractal-fn-1  (line  (vec  ?x0  ?y0)  (vec  ?xl  ’yl))) 
((make- lines 
[(vec  ?x0  ?y0), 

(vec 

(+  ?x0  (X  13  ?sum)) 

(-  (-  ?yl  (X  13  ?length))  (X  23  ?height))), 

(vec 

(-f  (-f-  ?x0  (X  13  ?height))  (x  23  ?length)) 

(-  ?yl  (X  13  ?sum))), 

(vec  ?xl  ?yl)]) 

where*  ?length  =  (-  ?xl  ?x0)  ; 

?height  =  (-  ?yl  ?y0)  ; 

?sum  =  (-t-  ?length  ?height))) 

;;;  Connects  the  vectors,  making  a  plottable  picture, 
(define  (make-lines  [?vl,?v2«?vecs]) 

[(line  ?vl  ?v2)« 

(if  (nullp  ?vecs) 
then  [  ] 

else  (make-lines  [?v2»?vecs]))]) 

;;;  An  interesting  picture  of  a  man  and 
;;;  his  wife  (the  fractalized  man). 

(define  man-and-wife 
(beside 
1 
1 

man 

(fractalize  3  fractal-fn-1  man) 

(vec  100  100) 

(vec  500  0) 

(vec  0  500))) 
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Appendix  D 

Sample  LNF  Session 


Included  in  this  appendix  is  a  recorded  session  with  the  LNF  system.  User  input  has 
been  boldfaced.  Recall  that  LNF  prompts  with  either  “LNF  of  ”,  “NF  of  ”,  and  “NF 
of  Members  of  ”  when  it  is  expecting  an  LNF  expression.  In  addition,  LNF  prompts 
with  “Definition:  ”  when  the  user  signals  the  system  (with  the  mouse)  that  he  wishes  to 
input  a  symbol  definition. 

Sometimes,  following  the  printing  of  the  reduced  expression,  some  statistics  on  the 
reduction  are  displayed.  These  statistics  inform  the  user: 

•  the  number  of  reductions  performed, 

•  the  number  of  user  defined  symbols  looked  up  (expanded), 

•  the  time  it  took  (in  seconds)  to  reduce  the  expression, 

•  the  reduction  rate  (expressed  in  reductions  per  second), 

•  the  size  of  the  result  (remember  that  shared  wffs  cannot  be  detected  by  looking  at 
linearized  LNF-wffs), 

•  some  space  and  stack  statistics,  and 

•  a  breakdown  of  the  reduction,  showing  which  functors  were  employed  in  the  reduc¬ 
tion. 

For  brevity,  these  statistics  are  not  displayed  for  all  of  the  reductions.  In  some  cases, 
only  some  of  the  statistics  are  printed.  Two  reductions  were  selected  for  detailed  moni¬ 
toring.  For  these  two  reductions,  each  step  of  their  reduction  sequence  is  displayed. 
The  session  follows. 

LNF  of  (X  (rx)  (+  7x  fx))  4  is 
8 


TO 


*  ^ 
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LNF  of  append  [1,2,3]  [4,5,6]  is 
[!•  APPEND  [2,3]  [4,5,6]] 


NF  of  append  [1,2,3]  [4,5,8]  is 
[1,2,3,4,5,6] 


NF  of  Members  of  append  [1,2,3]  [4,5,6]  is 
123456 


Definition:  (define  (thrice  ?f  ?x)  (?f  (?f  (?f  ?x)))) 
THRICE  defined,  combinators  introduced:  4 


NF  of  thrice  is 
S  B  (W  B) 


Definition:  (define  (double  ?x)  (+  ?x  ?x)) 
DOUBLE  defined,  combinators  introduced:  1. 


NF  of  double  is 
W  + 


NF  of  double  3  is 
6 


NT  of  double  kevin  is 

+  KEVIN  KEVIN 


NF  of  thrice  double  3  is 
24 


NF  of  thrice  double  kevin  is 
T  (+  (+  KEVIN  KEVIN)  (+  KEVIN  KEVIN)) 
(+  (+  KEVIN  KEVIN)  (+  KEVIN  KEVIN)) 
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LNF  of  thrice  thrice  double  3  is 
402653184 

Reductions  :  90 

Symbols  Expanded:  31 
Elapsed  Time  :  0.059689  secs 
Reduction  Rate  :  1507.82  RPS 
Size  of  result  :  1 


.\T  of  +  (?g  3)  (?g  4) 

where  ?g  =  (?f  f  X  2  2) 

where  ?f  ?x  ?y  =  (+  (x  7x  ?x)  (  x  ?x  ’y)))  is 
Initial  Expression 

S'  +  (R  3)  (R  4)  (R  (X  2  2)  (S  iB'  B  *  (W  x))  X)i 
Steps:  1  Combs:  43  Last  Comb:  S' 

-  (R  3  (R  (X  2  2)  (S  (B'  B  +  (W  x))  X  l); 

(R  4  (R  (X  2  2)  (S  (B'  B  ~  (W  xi'  XU) 

Steps:  2  Combs:  43  Last  Comb:  R 

-  (R  (X  2  2)  (S  (B'  B  ^  (W  x)'j  X  1  3) 

(R  4  (R  (X  2  2)  (S  (B'  B  -  (W  x))  X  )i. 

Steps:  3  Combs:  43  Last  Comb:  R 
*  (S  (B'  B  -  (W  X))  X  (X  2  2)  3) 

(R  4  (S  (B'  B  +  (W  X))  X  (X  2  2'))) 

Steps:  4  Combs:  45  Last  Comb:  S 

-  (B'  B  +  (W  X)  (X  2  2)  (X  (X  2  2))  3) 

(R  4  (B'  B  4-  (W  X)  (X  2  2)  (X  (X  2  2)11) 

Steps:  5  Combs:  47  Last  Comb:  B' 

-  (B  (+  (W  X  (X  2  2)))  (X  fX  2  2i)  3; 

(R  4  (B  (+  (W  X  (X  2  2)))  (X  (X  2  2})]j 

Steps:  6  Combs:  48  Last  Comb:  B 
^  (W  X  (X  2  2))  (X  (X  2  a)  3)) 

(R  4  (B  (+  (W  X  (X  2  2)))  (X  (X  2  2))j) 
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Steps:  7  Combs:  49  Last  Comb:  W 
+  (+  (X  (X  2  2)  (X  2  2))  (X  (X  2  2)  3)) 

(R  4  (B  (+  (X  (X  2  2)  (X  2  2)))  (X  (X  2  2)))) 
Steps:  8  Combs:  49  Last  Comb:  X 
4-(^(X  (IP  4)  (IP  4))(X  (IP  4)  3)) 
(R4(B(+(X  (IP  4)  (IP  4)))  (X  (IP  4)))) 
Steps:  9  Combs:  49  Last  Comb:  X 

-  (+  (IP  16)  (X  (IP  4)  3)) 

(R  4  (B  (+  (IP  16))  (X  (IP  4)))) 

Steps:  10  Combs:  49  Last  Comb:  X 
+  (+  (IP  16)  (IP  12)) 

(R4(B  (+  (IP  16))  (X  (IP  4)))) 

Steps:  11  Combs:  49  Last  Comb:  + 

+  (IP  28)  (R  4  (B  (+  (IP  16))  (X  (IP  4)))) 

Steps:  12  Combs:  49  Last  Comb:  R 
+  (IP  28)  (B  (+  (IP  16))  (X  (IP  4))  4) 

Steps:  13  Combs:  50  Last  Comb:  B 
+  (IP  28)  (+  (IP  16)  (X  (IP  4)  4)) 

Steps:  14  Combs:  50  Last  Comb:  X 
-+-  (IP  28)  (4-  (IP  16)  (IP  16)) 

Steps:  15  Combs:  50  Last  Comb:  + 

-  (IP  28)  (IP  32) 

Steps:  16  Combs:  50  Last  Comb:  + 

60 

60 

Reductions  :  16 

Symbols  Expanded:  0 
Elapsed  Time  :  0.024553  secs 
Reduction  Rate  :  651.651  RPS 
Size  of  result  :  1 

Combinations  Constructed:  50 
Number  of  Stacks  :  15 
Stack  Pushes  :  57 

Stack  References  :  168 
Stack  Checks  :  16 

Stack  Modifications  :  23 
Maximum  Active  Stacks  :  5 
Maximum  Stack  Depth  :  8 
Maximum  Active  Cells  :  18 

Functors  Introduced:  7 


Steps  %Steps  Functor 


4  25.0  X 

3  18.8  + 

3  18.8  R 
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NF  of  first  20  [1,3, ..,100]  is 

[1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39] 


NF  of  first  20  [1,3,..]  is 

[1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39] 


NF  of  first  20  [-10,..]  is 

[-10,-9,-8,-7,-6,-5,-4,-3,-2,-l,0,l,2,3,4,5,6,7,8,9] 


NF  of  first  10  [1,1,..]  is 

[1,1, 1,1, 1,1, 1,1, 1,1] 


NF  of  for-each  ?x€[l,..,10]  instantiate  (x  20  N)  is 
[20,40,60,80,100,120,140,160,180,200] 

Reductions  :  32 


NF  of  [(X  20  ?x)|?x€[l,..,10]]  is 
[20,40,60,80,100,120,140,160,180,200] 

Reductions  :  32 


NF  of  first  20  [[?x,?y]|?x€[l,,,];?v€[l,  .]]  is 
[[1,1],[1,2],[2,1],[3,1],[2,2],[1,3],[1,4],[2,3],[3,2],[4,1],[5.1], 
[4,2],[3,3],[2,4],[1,5],[1,6],[2,5].[3.4],[4,3],[5,2]] 

Reductions  :  377 


NF  of  first  20  (for-each  ?x€[l,..] 
and-each  ?y€[l,..] 
instantiate  [?x,?y])  is 

[[1,1],[1,2],[2,1],[3,1],[2,2],[1,3],[1,4],[2,3],[3,2],[4,1],[5,1], 

[4,2],[3,3],[2,4],[1,5],[1,6],[2,5],[3,4],[4,3],[5,2]] 

Reductions  :  377 


Definition:  (define  (odd  ?n)  (not  (zerop  (rem  ?n  2)))) 
ODD  defined,  functors  introduced:  2. 


NF  of  filter  odd  [l,..,10]  is 

[1,3, 5,7,9] 


.'’j'  ■>  .'-x-  •>  ■' ''  .'•j-'"  •  •  • '  V 


NF  of  map  (filter  odd)  [[1,..,10],[2,4,..,20],[1,3,..,19]]  is 
[[1, 3, 5, 7.9], [], [1,3, 5, 7, 9.11, 13, 15.17, 19]] 


Definition:  (define  (fact  ?n) 

(if  (zerop  ?n) 
then  1 

else  (X  ?n  (fact  (subl  ?n))))) 
FACT  defined,  functors  introduced:  7. 


LNF  of  fact  is 

S  (C'  IF  ZEROP  1)  (S  X  (C  B  SUBl  E1253)) 


LNF  of  fact  10  is 
3628800 

Reductions  :  85 

Symbols  Expanded:  1 
Elapsed  Time  :  0.049748  secs 
Reduction  Rate  ;  1708.61  RPS 
Size  of  result  :  1 

Combinations  Constructed:  76 
Number  of  Stacks  :  53 
Stack  Pushes  :  244 

Stack  References  :  527 
Stack  Checks  :  86 

Stack  Modifications  :  137 
Maximum  Active  Stacks  :  14 
Maximum  Stack  Depth  ;  7 
Maximum  Active  Cells  :  53 

Functors  Introduced:  0 


Steps 

%Steps  Functor 

21 

24.7 

S 

11 

12,9 

ZEROP 

11 

12.9 

IF 

11 

12.9 

a 

10 

11.8 

X 

10 

11.8 

SUBl 

10 

11.8 

B 

1 

12 

C 
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LNF  of  fact  100  is 

93326215443944152681699238856266700490715968264381621468592963895 

21759999322991560894146397615651828625369792082722375825118521091 

6864000000000000000000000000 

Reductions  :  804 

Symbols  Expanded;  1 
Elapsed  Time  :  0.62608  secs 
Reduction  Rate  :  1284.18  RPS 
Size  of  result  :  1 


LNF  of  fact  50  is 

30414093201713378043612608166064768844377641568960512000000000000 
Reductions  ;  404 


Symbols  Expanded:  1 
Elapsed  Time  :  0.28939  secs 
Reduction  Rate  :  1396.04  RPS 
Size  of  result  :  1 


Definition:  (define  (apply-each-to  ?x)  (map  (X  (?f)  (?f  ?x)))) 
APPLY-EACH-TO  defined,  functors  introduced;  2. 


NF  of  apply-each-to  is 
BMAP  R 


LNF  of  apply-each-to 
16 

[square, 

double, 

(X  (?x)  (-  (square  ?x)  (double  ?x))), 

K  37774, 
fact]  is 

[R  16  SQUARE»MAP  (R  16)  pOUBLE,S'  -  SQUARE  DOUBLE, K  37774, FACT]] 

Reductions  :  2 

Symbols  Expanded:  1 
Elapsed  Time  :  0.079325  secs 
Reduction  Rate  :  25.2127  RPS 
Size  of  result  :  30 
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NF  of  apply-each-to 
16 

[square, 

double, 

(X  (Tx)  (-  (square  ?x)  (double  ?x))), 
K  37774, 
fact]  is 

[256,32,224,37774,20922789888000] 

Reductions  :  158 

Symbols  Expanded:  6 
Elapsed  Time  :  0.274288  secs 
Reduction  Rate  :  576.037  RPS 
Size  of  result  ;  25 


NF  of  Members  of  apply-each-to 
16 

[square, 

double, 

(X  (?x)  (-  (square  ?x)  (double  ?x))), 
K  37774, 
fact]  is 

256322243777420922789888000 

Reductions  :  155 

Symbols  Expanded:  6 
Elapsed  Time  :  0.118786  secs 
Reduction  Rate  :  1304.87  RPS 
Size  of  result  :  25 


■NF  of  naturals-modulo-n  5  is 

[0,1, 2, 3, 4] 

Reductions  :  282 

Symbols  Expanded:  13 
Elapsed  Time  :  0.628656  secs 
Reduction  Rate  :  448.576  RPS 
Size  of  result  :  36 
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NF  of  first  10  naturals  is 

[0,1,2, 3, 4, 5, 6, 7, 8, 9] 

Reductions  :  743 

Symbols  Expanded:  23 
Elapseo  ~ime  :  0.585012  secs 
Reduction  Rate  :  1270.06  RPS 
Size  of  result  :  61 


NF  of  first  10  naturals  is 
[0,1,2,3,4,5,6,7.8,9] 

Reductions  :  130 

Symbols  Expanded:  2 
Elapsed  Time  :  0.121806  secs 
Reduction  Rate  :  1067.27  RPS 
Size  of  result  :  61 


NF  of  first  10  integers-repl  is 

[0,l,-l,2,-2,3,-3,4,-4,5] 

Reductions  :  632 

Symbols  Expanded:  13 
Elapsed  Time  :  0.50672  secs 
Reduction  Rate  :  1247.24  RPS 
Size  of  result  :  61 


NF  of  first  10  integers-rep2  is 
[0,-1, l,-2,2,-3,3,-4, 4,-5] 

Reductions  :  729 

Symbols  Expanded:  25 
Elapsed  Time  :  0.581089  secs 
Reduction  Rate  :  1254.54  RPS 
Size  of  result  :  65 
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NF  of  first  10  (powers-of  2)  is 

[1,2,4,8,16,32,64,128,256,512] 

Reductions  :  742 

Symbols  Expanded;  23 
Elapsed  Time  :  0.537465  secs 
Reduction  Rate  :  1380.56  RPS 
Size  of  result  :  61 


NF  of  higher-order-example-mod  4  is 
[[0],[0, 1,2,3]] 

Reductions  :  410 

Symbols  Expanded:  16 
Elapsed  Time  :  0.299072  secs 
Reduction  Rate  ;  1370.91  RPS 
Size  of  result  :  40 


NF  of  perms  [1,2,3]]  is 

[[1, 2, 3],[2, 1,3], [2, 3,1], [3, 2,1], [1,3,2], [3, 1,2]] 


NF  of  first  10  (closure-under-laws  [append  [l]]  [[2]])  is 

[[2], [1,2], [1,1,2],[1, 1,1,2], [1,1,1, 1,2], [1,1,1,1,1,2], 

[1, 1,1, 1,1, 1,2],[1, 1,1, 1,1,1, 1,2], [1,1,1, 1,1, 1,1, 1,2], 

[1,1, 1,1,1, 1,1, 1,1,2]] 


NF  of  first 
10 

(closure-under-laws 
[append  [1], append  [3], rotate] 

[[2]])  is 

[[2],[1,2],[3,2],[1,1,2],[1,3,2],[3,1,2],[2,1],[3,3.2], 

[2, 3], [1,1, 1,2]] 


NF  of  first  20  (g-seq  1  0.5)  is 

[1.0,0.5,0.25,0.125,0.0625,0.03125,0.015625,0.0078125,0.00390625, 

0.001953125,0.0009765625,0.00048828125,0.00024414063, 

0.00012207031,0.000061035156,0.000030517578,0.000015258789, 

0.0000076293945,0.0000038146973,0.0000019073486] 

Reductions  :  522 

Symbols  Expanded:  3 
Elapsed  Time  :  1.23927  secs 
Reduction  Rate  :  421.214  RPS 
Size  of  result  :  123 


NF  of  first  20  (series  (g-seq  1  0.5))  is 

[1.0,1.5,1.75,1.875,1.9375,1.96875,1.984375,1.9921875,1.9960938, 

1.9980469,1.9990234,1.9995117,1.9997559,1.9998779,1.999939, 

1.9999695,1.9999847,1.9999924,1.9999962,1.9999981] 

Reductions  :  719 

Symbols  Expanded:  5 
Elapsed  Time  :  0.577644  secs 
Reduction  Rate  :  1244.71  RPS 
Size  of  result  :  123 


NF  of  limit-g-series  (series  (g-seq  1  .5))  is 
2.0 

Reductions  :  58 

Symbols  Expanded:  6 
Elapsed  Time  :  0.04127  secs 
Reduction  Rate  ■  1405.38  RPS 
Size  of  result  :  1 
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NT  of  first-close-to-limit  (series  (g-seq  1  .5))  .0001  is 
[15»  1.999939] 

Reductions  :  947 

Symbols  Expanded:  23 
Elapsed  Time  :  0.523747  secs 
Reduction  Rate  :  1808.12  RPS 
Size  of  result  :  8 
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NF  of  first-close-to- limit  (series  (g-seq  1  .5))  .000001  is 
[21  •1.999999] 

Reductions  :  1319 

Symbols  Expanded;  29 
Elapsed  Time  :  0.733449  secs 
Reduction  Rate  :  1798.35  RPS 
Size  of  result  :  8 


NF  of  first  20  (g-seq  1  0.75)  is 

[1.0,0.75,0.5625,0.421875,0.31640625,0.23730469,0.17797852, 

0.13348389,0.100112915,0.07508469,0.056313515,0.042235136, 

0.031676352,0.023757264,0.017817948,0.013363461,0.0100225955, 

0.0075169466,0.00563771,0.0042282827] 


NF  of  first  20  (series  (g-seq  1  0.75))  is 

[1.0,1.75.2.3125,2.734375,3.0507813,3.288086,3.4660645, 

3.5995483,3.6996613,3.774746,3.8310595,3.8732946,3.904971, 

3.928728,3.946546,3.9599094,3.969932,3.977449,3.9830866,3.987315] 


NF  of  convergent-g-series  (series  (g-seq  1  0.75))  is 
TRUE 


NF  of  1  im it- g- series  (series  (g-seq  1  0.75))  is 
4.0 


NF  of  first- close- to- limit  (series  (g-seq  1  0.75))  .000001  is 
[54*3.999999] 


.NF  of  first  20  (g-seq  1  0.9)  is 

[1.0,0.9,0.80999994,0.7289999,0.6560999.0  5904899,0.531 4-409, 
0.4782968,0.4304671,0.3874204,0.34867832.0.31381047. 
0.28242943,0.25418648,0.22876783.0  20589103,0.18.530193. 
0.16677174,0  15009455,0.13508509] 


NF  of  convergent-g-series  (series  (g-seq  1  .9))  is 
TRUE 


NF  of  limit-g-series  (series  (g-seq  1  0.9))  is 

9.999998 
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NF  of  first-close-to-limit  (series  (g-seq  1  0.9))  .01  is 
[66»9. 990447] 

Reductions  :  4109 

Symbols  Expanded:  74 
Elapsed  Time  :  2.24123  secs 
Reduction  Rate  :  1833,37  RPS 
Size  of  result  :  8 


NF  of  first-close-to-limit  (series  (g-seq  1  .9))  .001  is 
[88»9. 999056] 


Reductions 


:  5473 


Symbols  Expanded-  96 
Elapsed  Time  :  2.9093  secs 
Reduction  Rate  :  1881.21  RPS 
Size  of  result  :  8 


.NT  of  first-close-to-limit  (aeries  (g-seq  1  9))  .0001  is 
[110«9. 999903] 

Reductions  :  6837 

Symbols  Expanded:  118 
Elapsed  Time  :  3.64072  secs 
Reduction  Rate  :  1877.93  RPS 
Size  of  result  :  8 


NT  of  first  20  (g-seq  1  -0.5)  i.s 

[1,0,-0.5,0.25,-0.125,0.0625,-0.03125.0  01 5i).>.'>.-()  007'^r25 
0  00390625,-0.001953125,0  0009765625.-0  000  is>2'^l  25  ()  000211 1  1063. 
-0  00012207031,0.000061035156.-0  00(K):5051757'v  o  noooi  525>.7'''i. 
-0.0000076293945.0.0000038146973,-0  000001 907.3  IMi] 


NT  of  first  20  (series  (g-seq  1  -0.5))  is 

[1.0,0  5,0  75,0  625,0  6875,0  65625,0  671875.0  66  10625  0  66796S75 
0.6660156,0  6669922.0  6665039,0  66674805.0  666626.0  6666S7 
0  6666565,0.66667175.0  6666641,0  66666794.0  66666603) 


Definition  (define  (u  ?x)  [?x]) 

I’  (l»*fined.  functors  int r' ”1 'looi  1 
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I  Definition:  (define  (sumlist  ?x) 

!  (if  (nullp  fx)  0  (+  (hd  fx)  (sumlist  (tl  ?x))))) 

I  SUMLIST  defined,  functors  introduced:  7. 


NF  of  sumlist  is 

S  (C'  IF  NULLP  0)  (S'  +  HD  (B  E7498  TL)) 


NF  of  sumlist  [1 ,2,3,4]  is 
10 


Definition:  (define  (reverse  ?x) 

(if  (nullp  ?x) 
then  [  ] 

else  (append  (reverse  (tl  ?x))  (u  (hd  7x))))) 
REVERSE  defined,  functors  introduced:  9. 


NF  of  reverse  is 

S  (C'  IF  NULLP  [  ])  (S  (B'  APPEND  E8332  TL)  (B  (C  PAIR  [  ])  HD)) 


NF  of  reverse  [1 ,2,3,4]  is 
[4, 3,2,1] 

Reductions  :  54 

Symbols  Expanded:  1 
I  Elapsed  Time  :  0.049213  secs 

Reduction  Rate  :  1097.27  RPS 
Size  of  result  :  20 


NF  map  square  [1,2, 3, 4]  is 

'1. 1.9. 16] 


(define  (length  [?*?r])  (addl  (length  ?r)) 
(length  [  ])  0) 


l.NUTH  defined,  functors  introduced:  15. 


'■!  ;  length  is 

A  A-S-E  PAIR  2) 

'  B'  K  (B  ADDl  E7732)  (ARC  2))  (ARC  1)) 
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NF  of  length  [1 ,2,3,4]  is 
4 

Reductions  :  40 

Symbols  Expanded  1 
Elapsed  Time  0.060'2'2()  secs 
Rp'luction  Rate  664  Ibo  FU’S 
Size  .  f  result  1 


NF  t  map  length  [[  ],u  l,[l,2l,[l.2,3,4] 

[0. 1,2.4] 

Reductions 

Symbols  Expanded  .5 
Elapsed  Time  0  073885  secs 
Reduction  Rate  1150  44  RI’'^ 

Size  of  result  27 


Definition  (define  (concat  Tx) 

(if  (nullp  Tx ) 
then  [  I 

elae  (append  (hd  *x )  (concat  M,1  ’xijiF) 
(.'ONC'AT  defined,  funct<jrs  iritt' du'  -- 1  7 


NF  of  concat  [[1 ,2],[3,4],[5,8]| 

[1.2.3.45,6] 


Definition  (define  (compose  *flist  *x) 

(if  (nullp  fflist) 
then  ?x 

ebe  (compose  (tl  Tflbt)  (hd  Tflist  ’x)))) 
COMPO.se  defined,  functors  introduced  1<) 


NF  of  compose  [+  3,*  2]  5  is 
16 

Reductions  :  31 

Symbols  Expanded:  1 
Elapsed  Time  :  0.021201  secs 
Reduction  Rate  :  1462.2  RPS 
Size  of  result  :  1 
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NF  of  compose  is 

S  iB'  S  IF  NULLP)  (S  (B'  B  E9934  TL)  HD) 


Definition:  (define  (sumtree  ?x) 

(if  (atomp  ?x) 
then  Tx 

else  (sumlist  (map  sumtree  Tx)))) 
-SLMTREE  defined,  functors  introduced  6 


N'F  of  sumtree  [l,[2,3],4]  is 
10 


D'di  11  It  1' 111  (define  (maptree  7f  ?x  ) 

(if  (atomp  7x) 
then  (7f  ?x) 

else  (map  (maptree  *f)  ’*))) 
MAPTFUtlt  defined,  functors  iiiti  io'.  i-d  '/ 


Nf  of  maptree  is 

S  (S'  IF  ATOMP)  (B  VUP  E'2(io4) 


NF  of  maptree  square  [1  ,[2,[3,4],5]]  is 

[1  [4, [9, 16], 25]] 


D'di  11  It  1- ui  (define  (revtree  Tx) 

(if  (atomp  Tx ) 
then  Tx 

else  (reverse  (map  revtree  ’x  ’ )  1 1 

HIA  rin'-K  lefined  furiro  r-  lu'r  du  ••■1  h 


M-  •  f  revtree  [I ,[2,[3,4],5j]  i.- 

[[5,[4.d],2],l| 


Definiticjn  (define  (exists  ?p  Tx) 

(if  (nullp  Tx) 
then  false 

else  (or  (Tp  (hd  Tx))  (exists  *p  (tl  Tx))))) 
EXISTS  defined,  functors  introduced  12 
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NF  of  exists  (=  5)  [2, 6, 1,5, 7]  is 
TRUE 

Reductions  ;  60 

Symbols  Expanded:  1 
Elapsed  Time  :  0.126887  secs 
Reduction  Rate  :  472.862  RPS 
Size  of  result  ;  1 


Definition:  (define  (all  ?p  ?x) 

(if  (nullp  ?x) 
then  true 

else  (and  (?p  (hd  ?x))  (all  ?p  (tl  ?x))))) 
*\LL  defined,  functors  introduced:  12. 


NF  of  filter  ?odd  [l,4,6,5,8,7,2] 

where  ?odd  ?x  =  (not  (zerop  (rem  ?x  2)))  is 
[1.5.7] 


Definition:  (define  (belongs  ?list  ?x)  (exists  (=  ?x)  ?Ust)) 
BELONGS  defined,  functors  introduced:  1. 


NF  of  belongs  [1,2,3]  2  is 
TRUE 

Reductions  :  28 

Symbols  Expanded:  2 
Elapsed  Time  :  0.021255  secs 
Reduction  Rate  :  1317.34  RPS 
Size  of  result  :  1 


Definition:  (define  (incl  ?x  ?y)  (all  (belongs  ?y)  7x)) 
INCL  defined,  functors  introduced:  1 


•  • 


NF  of  inci  [1,2,3]  [3,5,4,2,6,l]  is 
TRUE 

Reductions  :  207 

Symbols  Expanded:  6 
Elapsed  Time  :  0.116783  secs 
Reduction  Rate  :  1772.52  RPS 
Size  of  result  :  1 


Combinations  Constructed:  248 
Number  of  Stacks  :  103 
Stack  Pushes  :  644 

Stack  References  :  1408 
Stack  Checks  :  238 

Stack  Modifications  :  326 
Maximum  Active  Stacks  :  11 
Maximum  Stack  Depth  .  7 
Maximum  Active  Cells  :  41 

Functors  Introduced:  0 

Steps  %Steps  Functor 


30 

14.5 

C' 

29 

14.0 

S 

26 

12.6 

B 

15 

7.2 

IF 

15 

7.2 

NULLP 

14 

6.8 

HD 

14 

6.8 

B' 

14 

6.8 

S' 

14 

6.8 

c 

11 

5.3 

TL 

11 

5.3 

OR 

11 

5.3 

= 

3 

1.4 

AND 

Definition:  (define  (equalset  ?x  ?y) 

(and  (incl  ?x  ?y)  (incl  ?y  rx))) 
EQUALSET  defined,  functors  introduced:  3 
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NF  of  equalset  [1,2,3]  [3,1,2]  is 
TRUE 


Reductions  :  268 

Symbols  Expanded;  13 
Elapsed  Time  :  0.157473  secs 
Reduction  Rate  :  1701.88  RPS 
Size  of  result  ;  1 


NF  of  equalset  [1,2,3]  [3, 1,2, 2, 3]  is 

TRUE 

Reductions  :  367 

Symbols  Expanded;  15 
Elapsed  Time  :  0.207786  secs 
Reduction  Rate  ;  1766.24  RPS 
Size  of  result  .  1 


.NF  of  equalset  [1,2,3]  [3, 1,2, 2, 5]  is 
FALSE 

Reductions  :  367 

Symbols  Expanded;  15 
Elapsed  Time  :  0.198647  secs 
Reduction  Rate  :  1847  5  RPS 
Size  of  result  :  1 


Definition;  (define  intersection  (B  filter  belongs)) 

INTERSECTION  defined,  functors  introduced  0 


.NF  of  intersection  [1,2, 3, 4, 5]  [3, 4, 5, 6, 7]  is 
[3.4.5] 


Reductions  :  343 

Symbols  Expanded:  7 
Elapsed  Time  ;  0.193531  secs 
Reduction  Rate  ;  1772.33  RPS 
Size  of  result  :  13 


Definition:  (define  difiTerence 

(compose  [belongs, B  not, filter])) 

DIF'FERENCE  defined,  functors  introduced  0 


NF  of  difiference  [1,3, 5,7, 9]  [1,2, 3, 4]  is 

[2,4] 

Reductions  251 

Symbols  Expanded  3 
Ela])scd  Time  0  144971  sc's 
Reduction  Rate  1731  3S  RPS 
Size  of  result  10 


D'difiiiion  (define  (union  Tx  *y) 

(append  (difference  ry  ’x)  ?y)) 

f  NION  defined,  functors  intr'.Kiu('ed  4 


NF  of  union  [1, 2,3,4, 4]  [2, 4, 5, 8,1]  is 
(3, 2. 4, 5, 6,1] 

Reductions  271 

•Symbob  Expanded  3 
Elapsed  Time  0  186286  secs 

Reduction  Rate  1454  75  Rf’S 
''ize  of  result  24 
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MISSION 

of 

Rome  Air  Development  Center 

RAVC  plani  and  execu-tei  A&^&zaxch ,  dzveio pme.n-t,  tz6t 
and  detected  acquisition  pn.QQKams  In  6uppoA.t 
Command,  Control,  Communications  and  1 ntzlilgcncc 
(C^I)  activities.  Technical  and  engineering 
Support  within  areas  o^  competence  Is  provided  to 
ESV  Program  O^^lces  (PCs)  and  other  ESV  elements 
to  perform  elective  acquisition  o^  C^I  systems. 

The  areas  o^  technical  competence  Include 
communications ,  command  and  control,  battle 
management,  information  processing,  surveillance 
sensors.  Intelligence  data  collection  and  handling, 
solid  state  sciences,  electromagnetics ,  and 
propagation ,  and  e lectrcnlc ,  maintainability , 
and  compatibility. 
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